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Foreword 
by Tim Hartnell 


Welcome to this book on programming with the ZX computer. 
Small in size, the performance of the Spectrum and ZX81 can 
be most impressive, and this book by Robert Speel is the key 
to proving just how impressive the Sinclair computers can be. 

The author and I held many discussions while the book was 
being written, as we worked out the topics which were most 
likely to be of interest and benefit to programmers. At first we 
concentrated entirely on games programs, then realized that 
this could needlessly limit the value and scope of the book. 
Therefore, although the emphasis is on games programs, and 
games programming, we have several more serious programs 
to show how the Spectrum and ZX81 can earn their keep. How- 
ever, the games techniques will serve you well, no matter which 
type of programs you eventually write. 

Such programs as Hero Maker and Knight Fight are as good 
as much of the better commercial software available, so you are 
in for a great deal of enjoyment when you enter and run the 
programs. However, the value of the book would be 
diminished if you saw it only as a collection of programs to type 
in and run on your computer. By all means use the programs 
just as they are at first, but then make them departure points 
for your own program development and customizing. This 
way, you'll put your own stamp on the programs, and will 
develop your programming skills. 

The book contains the key to better programming on your 
computer. Itis up to you to turn it. 


London, 1982 


Introduction 


If you have read your user manual and want to improve your 
collection of programs and your programming skills, this is the 
book for you. I have included many programs which are 
different from those found elsewhere. Each program is accom- 
panied by an explanation of listing, which tells you what each 
section of the program does and discusses programming 
· techniques used. 

I have started off by looking at Spectrum colour and sound, 
which can enhance many programs considerably. Palette, 
Lightning and First Contact are among the programs which 
highlight these features. 

Then there are chapters on user-defined characters, which 
are among the Spectrum’s most powerful features, and I have 
included some programs for these. High-resolution graphics 
are next, with some short programs which show their use. 
There is a section giving more general information, including 
a series of modules to move objects under user control, and a 
discussion on ways of avoiding problems with programs. You 
will find a number of suggestions to help you debug your 
programs with minimum fuss. 

A series of longer programs follows. My 3-D Maze uses high- 
res graphics to draw your view of the path ahead: you must 
escape from the maze as quickly as possible — a ‘help’ option 
is included for the frustrated. In Boat Race, you can bet on one 
of four small user-defined craft in an attempt to win a fortune. 
Sheepdog puts you in the dog’s position, trying to herd four 
sheep into a neighbouring field. A veteran sheepdog can 
attempt six sheep, which need chasing through a sheep-dip too! 
The next program, Knight Fight, places you on horseback, 
jousting against a fierce opponent: when one contestant is 
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unseated the battle continues on foot and you use your chosen 
weapon to defeat your enemy. In Space Raider you command 
a small spaceship under attack by three different types of alien, 
each with its own way of getting you. 

A couple of serious programs are next. Probability Check 
takes a look at random events. Wave Addition shows 
destructive and constructive interference using multi-coloured 
high-res graphics. 

To help you use the many ZX81 programs in this book and 
elsewhere, I have included a section on converting programs to 
the Spectrum. 

The Patterns section shows ways of making effective use of 
low-resolution graphics as found on the ZX81, and a powerful 
drawing program — Screen Art — lets you design your master- 
pieces directly on the screen. 

Text Display and Avoid are two of the shorter programs in 
the book, fitting in 1K, and use sideways and vertical scrolling 

‘respectively. 

The next program, Hero Maker, is one of my longest 
programs, and one of the most important in the book. If you 
are a fan of fantasy role-playing games you will understand this 
game very quickly. You will be pleased to see that, unlike many 
computer Adventure games, this program runs differently 
every time and you will face fierce monsters guarding treasure, 
weapons and life-giving water. | 

For а more peaceful game, you can play a relaxing round of 
golf in Fairway, a graphically illustrated course. To sate your 
desire for space games, Alien Descender makes you, for once, 
the alien, sinking down a narrow gorge in the sea depths, 
avoiding the walls and the occasional depth charge. Asteroid 
Belt puts you at the outskirts of an asteroid swarm and if you 
survive at first, the asteroids get bigger and more frequent. 

To put the 7Х81 in a perplexing situation, in Amaze you 
draw the maze for the computer to solve. 

Rabbits is a semi-serious program in which you are trying to 
breed valuable rabbits with rare characteristics. They breed, of 
course, according to Mendel’s laws of genetics, passing their 
unwanted blotches to their multitude of descendants. 
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The programs now turn completely serious. Base con- 
versions, to and from base 10, are useful 1K programs. 
Quadratic Equation Solver and Right-angled Triangle Solver 
not only give answers to problems, but also explain the details 
of the methods used, showing all working-out. 

Compound Interest shows how your money can grow at a 
surprising rate from a modest outlay. With Bar Graph you can 
get a graphic idea of your monthly profits, perhaps from your 
cunning use of Compound Interest. Conversion rounds off the 
programs, and will convert centigrade to fahrenheit, radians to 
degrees; in fact any values in any steps if you know the con- 
version formula, printing out its results in a neat list which can 
be copied on the ZX Printer. 

Finally, I have discussed ways of making a cassette 
collection, and how to try to solve hardware problems, Other 
useful information includes a glossary of terms used and report 
codes. 

As you begin to adapt, enlarge and transform my programs 
into your own, I think you will find the explanations of listings 
very useful in making you a better programmer. 

Best of programming, 


S. Robert Speel 
Eastcote, 1982 


Note 

Later models of the ZX81 and all models of the Spectrum call 
the NEWLINE key ENTER. If your computer hasan ENTER 
key, all references to NEWLINE refer to that key. 


Spectrum Colour 


The ZX Spectrum’s name is actually derived from its colour 
capabilities and there are several commands dealing with 
colour. There are some very powerful features, such as the fact 
that all 8 colours can be used at once, with both text and hi-res - 
graphics, and the ease of using the commands. 

Here is a short summary of the colour commands. For all the 
colour commands, codes are used for each colour. These are: ` 


0 Black 

` 1 Blue 
2 Red 

"3 Magenta (purple) 
4 Green 
5 Cyan (pale blue) 
6 Yellow 
7 White 


There are 32 columns and 22 lines of characters on the upper 
(easily accessible) part of the screen — 704 character positions 
in all. Each of these has a foreground colour INK, and a back- 
ground colour PAPER. Each position has two possible levels 
of brightness and can be normal or flashing. Together, the 
INK, PAPER, BRIGHT and FLASH numbers are called 
ATTRibutes of a character. All the commands can be set 
globally - i.e., so that all PRINTing and PLOT ung after the ` 
г command will have that ATTRibute. This is done by a simple 


line without PRINT or PLOT. To make the ATTRibute come | 
into effect all over the screen, CLS is used. Thus to set red INK : 


on blue PAPER, flashing and bright, you could use 


- 100 INK 2: PAPER 1: FLASH 1: BRIGHT 1: CLS 
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The colour commands can be set for just one PRINT or PLOT 
command by placing the colour command after the PRINT or 
PLOT, followed by a semicolon - e.g.: 


PRINTINK2;PAPER 7; FLASH 1; *Hi there" 


If you are using PRINT AT, colour commands go before the 
AT. In fact, you can change within one PRINT statement 
several times: 


PRINT INK 7; PAPER 1; “HELLO”; FLASH 1; A$; 
FLASH 0; INVERSE 1; AT 10,4; “Press any key”; INK 4; 
PAPERO; AT 15,12; B$ 


BRIGHT and FLASH can be set to 0 — off, or 1 — on, al- 
though whether a character is BRIGHT or not is often very 
difficult to tell. 

INVERSE and OVER can also be set to 0 ог 1. 

INVERSE 1 swaps the dot pattern in a character, so 1s (dots) 
become noughts, and vice versa. Note that this is not the same 
as swapping the INK and PAPER colours (although it appears 
the same on screen) and these remain unaltered. 

OVER 1 adds any new characters on top of the old ones on 
the screen. So if either has an INK colour at a point, the 
resulting character will have an ink spot. But if both dots are 
ink colour, the result is paper colour. This is an XOR 
(Exclusive OR) function, giving ink if the first character has ink 
at a dot position or the second has ink there, but not both. 
INVERSE and OVER are used in the same way as FLASH and 
BRIGHT. 

Two other commands, INVERSE VIDEO and TRUE 
VIDEO, are treated rather vaguely in the manual. They are 
more comparable to the graphics key than any other 
commands, as there is no indicator in the listing except the 
actual ‘inversed’ or graphic characters. 

You can use INVERSE VIDEO to PRINT white on black 
inside the quotes of PRINT statements. 

If you press INVERSE VIDEO, followed by GRAPHICS, 
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all the graphics are reversed, so the graphics you normally get 
by pressing a number key are then produced with CAPS 
SHIFT and the number key. To get back to normal mode from 
INVERSE video mode press TRUE VIDEO. 

Note that the cursor is often reluctant to go over inverse 
characters, and you may have to persevere strongly. You can, 
just by EDITing a line and pressing INVERSE VIDEO, get 
the whole line (except the line number) in white on black. 
When you put the line back by pressing ENTER the whole of 
the listing after that point will change to INVERSE VIDEO. 
This will give you permanent inverse listings, including on the 
ZX Printer. However, PRINT statements in the inversed lines, 
even though their contents look inversed, will PRINT on screen 
in normal mode (unless separately inversed). You will only 
fully understand these two commands with practice. 

Here are a few programs which use some of the above 
commands to produce interesting and very colourful displays. 


Colour Spectrum 


To use 
Press RUN and watch. 

The program produces a highly colourful display showing 
all the Spectrum colours in squares. It changes these by 
considering the ATTRibutes of each character square and 
adding 1. 


Notes on listing 

10 PRINT lines of colour. 

20 If paper colour <7 then goto 40, and add 1. 

30 Change paper colour to 0. 

50 Repeat for random number of lines. 

60 Necessary as lines 40 and 50 used by the second part of the 
program as well as the first. 

70-80 Same as first part of program, but starting at bottom of 
screen instead of top. 
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Listing 
3 РЕМ CZotour Spectrum 


за RANDOMIZE : FOR F=i TO Ве: 
FOR з=@а TO т. PRINT PAPER gi“ 7; 
; NEXT а: NEXT f | 


га LET 2=4: FOR Е=8 TO INT {ERN 
D422): FOR дат ТО #1. ТЕ ATTR if 
„9? БЕ THEN GO 13 зе 

30 PRINT AT 6,8; PAPER G6," ": 
Go за 


та 
за Soa t ғ.а; PREFER «Өтте < 
f (LC ET. 
NEXT а: NEXT f 


& IF z-2 THEN GO TO 2G 


8 e 
EP -1: ТЕ ЕТЕ (f.g? «ВЕ THEN СС 


аа 
за PRINT AT 6.4. FREER аё,” 7: 
са Ta ва 


Stars and Stripes 
To use 2 
Just press RUN and wait for a few seconds. 

This program DRAWS the star pattern in just four lines. The 
rest of the program PRINTS the stripes and occasionally swaps 
them round. Since the stripes are made of coloured squares, 
they do not show at all on the COPYed picture. 


Notes on listing 

10 The effect of this line is that the DRAWn pattern gradually 
appears as the program runs. 
Note that if you have a printer you can STOP the program 
after line 70, and COPY a seemingly blank screen to get the 
above pictures. 

20-70 DRAW picture and PRINT ZX SPECTRUM. 
Note that the same DATA is used to DRAW all the stars. 

100-140 Colouring routine. Gradually the paper colour is 
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changed, and the ink colour is altered to contrast. Every now 
and again the colours are swapped round and the routine 
repeats. 

500 DATA for star shape. 


Listing 
1 REM Stars and Stripes 
2 REM м S.kobert Speer 
за INK 2: Бы wee debts 
за FOR f= TO 10 STEP 10 FOR 
За то 18 STEP зе RESTORE : РФ 


T 4@+f.9: FOR һ=1 то 8: READ a,b 
: ORAL а+8@,Ь+вә: NEXT h: NEXT 9 


за FOR ўза TO да STEP за: FOR 
з59 TO 18 quce soe” ное TO зе 


о а PLOT Етна чао: FOR i=1 ТО Б 
: READ a,b: DRAN at28,b48- NEXT 

i: NEXT h: NEXT а. NEXT Ф 

ТО PRINT AT 10,25,"ZX":HÜU 14.1 
а; "SPECTRUM: 
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168 FOR +=1 та 388: LET a-IMU і 
RND +20): LET b=INT «емо за) жа 

210 PRINT PAPER грла): INK 8; б 
VER 167 as.b." О ЕТ 2+2 Фр“ 

“зат ае. b: ` Ge CPE SP та А 

іше FOR Ғсі Tir SRE. LET З>ЕТЫТ 4 
RHDx201: LET b-INT (RNDs8) жа. 

іза PRINT PAPER (F-b-43; INK 9; 

OVER 1;HT а,Ь; " "рат ажа,Б;" 

“зат азе,ь:“ "i: NEXT Р 
і4з GO ТО іше 


вез рата Ld, 1, -2е,-2, 1, 2,3,-2, - 
2,~-1,282,2,-1,-2,-1 


Doorway 


То use 
RUN and watch. 

This program uses FLASH and OVER to achieve some very 
eye-catching colour effects. 


Notes on listing 
20-30 DRAW lower triangle and fill in with horizontal lines. 
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40 DRAW upside-down triangle and fill in solid. 

50 DRAW small ‘peak’ triangle and fill in solid. 

60 DRAW archway. 

70 DRAW horizontal lines in lower part of door. 

80 Fillin top of archway by DRA Wing semicircles. 

90 Central vertical line. 

100 Colouring. The border is constantly changed and the g and 
h loops move down the door PRINTing in different colours 
giving a cascading effect. Note that the many horizontal lines 
prevent the flashing from being too dominant. 

Note what happens when the program stops. 


Listing 
ВЕН ees 
2 REM © S.hebert Speel 
19 TU їс PAPER Б. BORDER 3: Б 
RIGHT TLS 
В ЕЕ plot 758,0: DRAN 50,2020: DER 
(5 ee 


за FOR. Feige TO i STEP -=: LG 
T i128-F.2,10à8-r: DRAN Ғ.Ә: NEXT 
f 


ча FOR Ратай то 1 STEP -і: PLO 
T pole т1ай+Е а: ОНАЈ #,@. ЧЕХ 


58 FOR Е=@ TO ги: пет зез-т., 1 
&5—-f: DRAW Fs2,0: NEX 


сд FOR Ега TO i8 STEP 10: PLOT 
SS-f,26-Fee: DRAWN 3,28+Е+3:; eae 
esos o зе „а, -РТ: ORAU 8,-30-Fss 


зе FOR гага TO 100 STEP 2: PLO 
: NEXT ` 


Fol TO ДО STEP 2: PLOT 
ОЧЕВ 1;125-f,21Q8. rapu ық 2; OU 
ER тож, 0, -Рт: НЕХ 
GS PLOY 1228, 16: байы а, -зав 


лав FOR Fei TO ва: FOR а=а то = 
© STEP 2: INK БЫБжа: FOR Бад ТО 
1: BORDER ВОХР: Dor PAPER RNO 
#5; OVER 1; FLASH Е 9th ,3321: ` 

Е "i: NEXT TS Ll а: NEXT 
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This program shows how much you can cram into one program 
line. I had to put the REM statement at the end, as everything 
after the REM is treated as part of the REM, including the 
colon. 

The program uses FLASH and all 8 colours to great effect, 
but leaves some parts of the screen stable to give some к to 
the eye. 


To use 
RUN and watch. 

Try altering the inverse spaces to normal spaces, or remove 
the FLASH to get a totally different effect. 

Note that the pattern COPYed using the ZX Printer is not 
apparent on the screen at all. 


Listing 


ic FOR все TO 5: FUR £= та S: 
FOR g=f p 28-Е STEP (S423: РОВ 


к f; РЯРЕЯ ABS "ier pe "i NEXT b- 
> NEXT а: NEXT F: NEXT е: REM FL 
àshttash © 1982 S.Robert Speel 


Palette 


This program allows you to get lots of extra colours from your 
Spectrum. With a ‘chessboard’ user-defined graphic, we can 
blend ink and paper colours to produce many new colours. This 
program goes through the whole range. 


To use 
RUN to give the first colour — black. The ink and paper colours 
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are given. Press ENTER to get the next shade. Repeat the cycle 
through full range. 


Notes on listing 

10 Set up user-defined ‘chessboard’ pattern. 

20 For all 8 paper crue, 8 ink colours, and for each of 21 
lines. 

30 Print line of chessboard graphics. Note these are graphic 
As, not normal capital letters. | 

40 Printinkand paper colours, instructions to press ENTER. 

50 Repeat when key is pressed for all combinations of ink and 


paper. 


Listing 
3 FEF: paiette 
2 REM © G.Roberi Speet дава 
іс FOR Fei To 2 [ТЕР 2: РОНЕ U 
БЫ CHR 1435457, та. PORE Пар СНИФ 
Add + + а ВЕ: MEXT Р 
за FOR РАБ TO F: FOR с-а TO >: 
FOR в=а то == 


за PRINT PAPER Е; тық 8; “ARRAR 
вавванвавваавававававввавва“ 

ав NEXT в: PRINT AT 18,0; INR 
а; PAPER Р; “INK “ig” РАБЕЯ “i Е; 
au 21 2; ‘press ENTER Fer next co 

авг“ 

зв PRINT AT &,8:: PRISE €: HEX 
T а: NENT Р 


2x Res Colour Patterns 


This program uses a special user-defined graphic divided into 
four parts, one all ink, one all paper, and two intermediate 
shades. This means that using two colours — one ink, one 
paper — we can get four different shades in one character 
square, hence the name of the program. 


To use 
RUN and watch. 
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The program goes through all the colour combinations and 
takes a long time to run completely. Be patient at first. If you 
cannot wait, after a few minutes of RUNning, BREAK, and 
type GOTO 40. 


Notes on listing 

10 Setuser-defined ЖАТЫ which is used to give four colours. 

20 ЕШ screen with graphic. 

30 Part 1 POKE random position on screen with INK and 
PAPER ATTRibutes. 
This happens 500 times for each combination of INK and 
PAPER, but is worth waiting for. 

40 Now we have FLASHing colours, although these are not 
apparent at first. 

100 DATA for 4-colour graphic. 


Listing 
2 REN 2 x res atour Pattern 
Е REN © 5.Rob5ert Speet 19882 


а RANDOMIZE ; FOR Ғ-е YO 7. Я 
а: БОКЕ USR CHR 2444f,8: NE 


= 
а. 
ж r 
Ae [eu (зен To а: тов ред, уе = 
са PRINT CHR 144; NEXT 9g: PRIN 
3 1 


Op 


30 FOR Рэй та бз. FOR асъ Та 5 
Sa: POKE = БЕНО ыра АТ „Е: 
NEXT 3: NEXT 

ча FOR Feige TO 192: FOR 2= T 
EEE ZES2E +INYT НЕР ғаз, 
5 dejes cs бе 
igo DATA 240,240,248, 246,138,165 


ғ, 
gi 
© 
% 


718,165 


Spectrum Sound 


Use of sound on the ZX Spectrum is very easy: the single sound 
command, BEEP, is followed by two numbers, the first of 
which is the length of note, the second the pitch of the note. 
However, that is it. We cannot play more than one note at a 
time, and the note cannot change as it is played. Another 
problem is that when BEEP is used, all calculations stop. This 
means that you cannot have continuous sound while a program 
is doing something on screen. There is no white noise generator 
(white noise is used for explosions, growls and mechanical 
noises) which would be useful in many games. 

So what use can be made of Sinclair sounds? 

Firstly, it is used as a keyboard sounder, something that 
many 7.Х 81 users buy separately. 

The keyboard sounder is rather quiet, so, if you want, you 
can make it more noticeable with a useful POKE: address 
23609 holds the systems variable PIP. It is normally set at 0, 
but you can POKE it safely to other values. POKE 23609, 30 
gives a short bleep which is louder than the usual click when 
a key is pressed. Try other values until you find one which suits 
you best. Numbers over 100 give bleeps that are too long for 
comfortable keyboard use. 

If we consider actual programs where sound is used, the 
BEEP command appears in a different light. For serious 
programs, including business programs, scientific, maths and 
programming-aid programs, the only need for sound is a short 
note to acknowledge inputted information, and perhaps a 
warning sound when the computer receives a wrong bit of 
information. The BEEP command can easily cope with this. — 

Educational programs are similar in use of sound, but short 
trills or tunes may be used as ‘rewards’ when a set of questions 
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has been answered well, or a section of the program has been 
RUN successfully. Again, BEEP is suitable. 

Word games need few sound effects, so the main area where 
better sound effects are required is in graphic-based games. 
Many of these would benefit greatly from use of sound, and 
here we must be careful. 

Continuous sound while a game is being played is not 
possible, as the program stops while the sound is made. The 
- bestsubstitute we can manage is to have short BEEPs, duration 
0.1 or less, in the program. The noise can be made every 'go' 
(i.e., each time the main loop is executed), or a special sound 
used when firing, hitting, or whatever special activities 
(activities which do not happen every go) the program has. 
. Longer sounds can be used for explosions and when winning 
' (orlosing) a game. This way we can achieve a fairly noisy game. 
Remember that many games need to be slowed down to be play- 
able, often with dummy FOR-NEXT loops. These can be 
replaced with BEEP commands. 

In most action games, the sounds required are not musical 
notes. For the clashing of swords, the hum of laser beams, the 
roar of a dinosaur, simple beeps are no good. Using BEEP, we 
` can actually obtain quite a few of the more exotic noises. The 
trick is to use the fact that the loudspeaker cannot cope with 
very low or short notes. We can get a large range of clicks, 
thuds, beats and so on, useful for engine noises, running 
sounds and shooting noises, by BEEPing low or very short 
notes as well as some of the very high notes. 

If you wish to amplify these sounds, plug in the SAVE leads 
and press the Record button on your cassette recorder without 
pressing forward. 


за ВЕЕР .6,1&: BEEP „7,34.5: С 
G TO 18 


ie FOR раз ҒО ва: ВЕЕР „#8 ве- 
Е: МЕХ Е 
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BEES 


RIAM 


0 


БЕР 


„аб ее: 5 


FOGR g=i 


аа ml BEEP .S85.-2: 


= 
я: 


> Ұз 
+ : it 


=3 TO 20: BEEF . ааз, + 
-FzZ#S- ВЕЕР .тез,5: PRU 
-883.@: PAUSES 


PAUSE 25-F: 
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га FOR ре та за ӘТЕР -і: BEE 
. 83,18: PRUSE Б-Рг5:. ВЕЕР „бё 
‚5: БЕНІЗЕ G-FeS: DEEP еез, 2: P 
USE S-f75: BEEP .B03,.1. PAUSE = 
-Е. NEXT f: GG та за 


Galloping horses 


Lightning 


This program makes use of very short BEEPs to create a 
crackling noise, which sounds somewhat like lightning-cracks 
during a thunder storm. This noise is accompanied by bright 
flashes of ‘lightning’ to give quite an effective display. 


To use 
RUN and watch. 

As the flashes occur randomly you may be faced with a blank 
screen for several seconds at a time. 


Notes on listing 

210-230 Main lightning routine. 230 selects a random stroke 
of lightning from the data list and DRAWS it. OVER is used 
to wipe it out. The random BEEP is very short to give a 
crackling noise. 

240 Longer crackling sound, using lower notes but for a longer 
period. 

9000—9070 DATA for various shapes of strokes of lightning. 


Listing 
i БЕН Liohinsmno 


= © 5.Коһегі Speei зава 


iege PAPER е: BORDER е: CLS : RA 
NDOHIIE 


вав FOR Е-а TO звава 
зае ir RHO<.5 THEN PHUSE 50: СО 
та 249 
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228 LET x =RNDSi2PR@+Sa: BORDER в: 
PAPER 5: CLS : BORDER е: PAPER 
са CLS : LET а=аава+кмт свима »8) = 
230 FOR 2-5 TO @ STEP -а:: DUER 
1: INK 9: PLOY x,2175: RESTORE @ 
: FOR Һ-і Ти 6: REBO 23,22: DRAU 
23,22: ВЕЕР „ШЫЙ FE SDS: NEXT В 


MEAT = 

Seg IF AND<.6 THEN NEXT f: FOR 
z= те ге: ВЕЕР .G@1eAND.-z: NEXT 
= ir МО: В THEN BO то Бар 


звве Бата -2a за. са. FR, за, за, 
SU, -се,-е2, за, за. за 


заза опата s eu DOMUS ee 


ттар ле зе Ке, rw 

забе CATA “зё. фа за. зе.2=. а. 
заста, +43. -óe 

аза БАРА За За їа,-га, 36.46, 

22, -ча, за, -за, за, -ва 


SESS BATA -S@,-5.18,-8,-5,.-18,.48 
=š 


N 


First Contact 


This program shows use of sound in several different ways. 
Typical ‘arcade game’ noises when moving your base or the 
alien ships are used, and a firing noise where appropriate. 
There is an explosion noise, and a short beep when you press 
a key to start a new game. There is also a siren noise for when 
you lose and are taken away by ambulance. 


To use 

It is the year 2000 and some aliens from the stars have 
discovered Earth. They are sending down special envoys to 
make contact with their brother sapients. It is your task to keep 
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them at bay with your missile base and protect the status quo. 
You have 20 missiles. The aliens come two at a time and when 
you destroy one, another appears at the top of the screen. 
You move left and right with the 5 and 8 keys, and fire with 
the 7 key. You score 1 for each alien destroyed, and when 
your score reaches 5, you get 0, 1 or 2 extra missiles for every 
new alien blasted. The game ends when an alien lands. Your 
score and the current highscore are given. 


Notes on listing 

30-40 hs = the highscore, sc = your score, sh = number of 
shots left, t is set when you fire, and gives your current score 
and missile count. 

50 PRINT your base. 

100 Array x: contains the enemy spaceships’ co-ords, and their 
movement vectors. a is the x co-ord of your missile base. 

200-410 This is the main routine. You may wonder why one 
FOR-NEXT loop is not used, rather than 3 exactly similar 
loops at line 200, 200—400, and 400—410. This is because if 
the aliens are PRINTed separately, you get this sequence of 
events: (1) PRINT alien 1; (2) You shoot/move; (3) Move 
alien 1; (4) PRINT alien 2; (5) You shoot/move; (6) Move 
alien 2, goto step 1. This is fine unless in 5 you shoot at alien 
1. If alien 1 has moved, but is still PRINTed in the old 
position, you may shoot it dead, and it will reappear next go. 
To avoid this, we have this sequence: (1) PRINT both aliens; 
(2) You fire/move; (3) You fire/move; (4) Move both aliens, 
goto step 1. Now, whichever alien you fire at, it cannot be 
at one position and PRINTed at another. 
200-320 PRINTs both aliens, 210 deals with the aliens’ 
noise, 300 moves you, and makes а noise. 310—320 checks for 
firing, and has a firing sound. If you hit, goto 500, otherwise 
update ‘shots left’ at 550. 
400 moves both aliens. 
410 checks for alien landing and repeats sequence. 

420-490 Alien lands, ambulance comes to drag you off, score 
and highscore given and new game offered. 

500-540 You hit alien. Explosion and noise and bring new 
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alien on to top of screen at random position. Increment score, 
and missiles (if appropriate). 

550-560 Update score and missiles left. 

8000-8010 Set up user-defined graphics. 

8500-8530 DATA for user-defined base, alien, missile and 
ambulance. 


Listing 


2 REM First Contact 
2 REM © 5S.Hobert 5peet 3952 


за GO SUS Sees 
20 INK ©: PAPER ©: BORDER ЕС C 


за LET Ь= == 
ай LET zc-0: LET zb-26: LET t= 


Ба PRINI INK в, ет 28,18; CHRE 31 


ASG BIN xX(63: FOR fzài TO Ф STEP 
З: LET x(f)-IHI (RNDF2S53 F3: LET 
Х СЕТА СЛ: LET x (fF +2} =2: NEXT f: 
КЕТ 3s=i8 


сев FOR F= TO 4 ЕТЕР 3: PRINT 
INK 4: ат xttFf£+213) ж (Fy—1t; “ “; CHRS 
1442: “БЕР х {2+3} -2. x CFP —X CF ЕУ; 
ЕЕ у 

225 FOR f-1 TO 4 ЕТЕК З: BEEF . 
BS. Р 

386 LET гата: LET ге-е+ ТНКЕУФо" 
BU)—ItINKEYE£-"5"32-i(ano02)—ia22322: I 
Е гв<>а THEN ВЕЕР .Әз.рФ- PRINT 
тық SI аг ев,.а-14;“ "НИ дасе" " 


SiS IF INKY S= AND Sh: THEN 

FOR g-ie8 TO 3 -з: PRINT IN 
К рг; g,a;CHRs 146;AT а+1,а;"“ “~ 
: BEEP .685.4u0: HEXT c: PRINT ат 

иа ранена ест авешнв-ај LET t-1: 
ТЕ вох iti GR а-к t4} THEN LET зс 
сел: GD та Бай 


заа IF :=4 THEN GO то 558 
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: FOR fei FO а STEP 3 
3 =x fF tRI + (PS < „Б: LE 
РЕ CINT ERNE} — 1 + tx í F 
2812: LET KiFfi=exifi¢x 


NEXT Е: IF x (зг :20 SND x (S3 
SO THEN бер TO зен? 


#26 PRINT PAPER Е, ВТ 26,3; "An а 

зеп Бас tanded.°;AT іш, á; "еш 

score із суве: IP sahs “THEN LET 
= == š 

ЧУВ PRINT INK S AT 14,5; "Best = 

a por ш e 


ЊЕ INR "ЕР 28 PR “гене па? Е 
ARS 145: BEEP 5,32: ВЕЕР „7.14. 
S: NEXT F 

4Sa FOR Е-1 TO за: BEEP .5.-50-4 
Жа БЕН (7 


ава FOR f -a—3 TO ра БЕТЕР 2: PRI 
МЕ INK 7;HI ге,,“ “рыныз 247, © 
HR лав: ВЕЕР „5,318. BEEP „2,184. 
в: NESS mp 

4 ге PRINS INR Stir 
зае: “Another game? i 
NKEY = ц. THEN BEEF . 
GO ғо 4G 


450 IF INKEYGXZ-"n" THERN ВЕЕР „5, 
за: PRPER 5: BORDER Е: ктер 
ден BEER „ча RNDXSE: сп Fa ізі 


440 FOR Р-8 ТО a-3 STEP 2:: PRI 
ж 


выраз; 
“NOS FE E 


t 
= | 
Soe СЕБ 


сев FOR РАЗ ТО 1р. PRINT INK RN 
C8; ST x (Sie ia=x ¿lll кікіші SND ( 
asx i4})3.a;"B":;: ВЕЕР .85,-RNDs5 
@: NEXT F: PRINT CHR Bi" “~ 
ӘЗІЗ ТЕ зах із THEN LET x iS} Са: 
LEY Kit} =INT (RND 23G} += 
Ба ТЕ з-х {12} THEM LET x i323} =1: 
LET sti =INT IRHDX28)-- 
ЫЗЫ IF а=х а? THEN LET x iS} =i 
Бай IF 5005 THEN LET азв=агаћ ++ INT 
(RND 3I у 
Soe PRINT INK E; AT @,8; “Scare = 
SC Sha ts tert E “ts NS 
555 LET ==: Go TO заза 
Венай FON РАБ то а: FOR с == TO 7: 
RERHD а: РОКЕ OSR CHR Ле + Е +3 


„а: NEXT 8; NEXT f 
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User-defined Characters 


All the letters and numbers, as well as the special graphic 
symbols and most of the other symbols, occupy one character 
square each. Each character square is made up of eight rows, 
each of eight dots, which can each be set to ink or paper. User- 
defined characters are characters where you, the user, design 
and program your own shapes. You have space for 21 different 
user-defined characters in any one program, though there are 
ways to get around this limitation and have as many as you 
want. 

User-defined graphics are very useful in games — small green 
aliens, robots, spacecraft, games paddles and so on. For mathe- 
matical and scientific programs, Greek letters, square-root 
signs and large matrix brackets may be needed. When maps are 
made on screen, symbols can be designed to indicate marsh- 
- land, rivers, built-up areas and so on. Graphs, pie-charts and 
filing systems may also use special symbols. 

A user-defined character (user-defined graphic) is first 
designed as a black silhouette on an 8x8 grid of squares. Each 
row is then made into a binary number, a black square being 
a 1, and a white square, zero. So this ‘graphic man’ becomes 
8 binary numbers, like this: 
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For shortness, these numbers can be converted to decimals — 
it is not clear in the manual that this can be done. The code for 
the graphic may be entered as а list of POKEs, like this: 


i REN Wiser dcrfined гаг 

за PORE USR ВТ а ВЕ 0 

ее PORE USR "бб аа „ШЕ 
38 РОНЕ USB пи" ао 135 
за FORE USR CO TE U BBE 
се PORE USR "И" а га 
GO PORE WSR “Rit sh. Se 
за PORE USAR “At зе, ге 
Be PORE USR Са? „ва. 


A simpler way is to use a FOR-NEXT loop, which READs the 
numbers from a DATA statement elsewhere: 


P 
2) 
m 
2 
ГЕ 
їл 
йй 
Cu 
Ë. 
№ 
маң 
ы 

ка 


за нет 
iO FOR =, TO 7: READ а: POKE 
за рата 25,286.1986.126,22.29.290 


-> 


For a number of different characters to be defined, an extra 
loop can be added. 

Here the ‘A’ is replaced by СНЕ%(144-Ғ, which 
incidentally avoids confusion between the capital A and graphic 
A, which are indistinguishable on screen and in listings and 
easy to forget. So for (e.g.) five user-defined graphics: 


i REN tiger defincd Mon, MORSI 

,Ch3id,Cat and Боз 

ла FOS Fem TO < ЕСЕ; пав To T: 
READ а PORE ПЕК СЫНЫ (Idd; fF) +S 
„а:' NEXT 9: NEXT F 

ше DATA 26.25,41235,i125,220,29,:0 
2 Ей. 

зе DATA за ве 1353F., 128, 23, 62, 20 
54 

4% DATA @&.8,236.8¢4.36.28,48.48 

за DATA аа 2,34 ва,ха,га 

са DATA &.@,@€@.64¢,.252.58,48, 72 


You can design your characters on squared paper, ruled into 
8х8 square sections, but it is convenient to design the 
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character(s) on screen so that it is possible straight away to see 
what it looks like as a character in the actual size of the finished 
product, and be able to alter it until perfect. 


оо 


каа ака 


کد 
= 


User-defined Graphic Designer 


То use 
When you RUN this program, an 8X8 grid of squares appears 
at the top of the screen, with a marker in one corner. 

To design a graphic, the marker is moved around the grid 
using keys 5, 6, 7 and 8. To fill in a square with black, press 
key 0. To wipe out a square which is filled in, press key 9. 

When you have finished your graphic, press key 1. The 
DATA for the graphic will appear, together with a single 
actual-size version of your graphic and a block of them so that 
you can see what they look like in a group. You are then asked 
whether you wish to make any corrections, after seeing how 
your graphic really looks. Press key Y to put yourself back in 
command of the marker. If you wish to scrap the whole 
graphic, you will need to re-RUN the program. 
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888822 288 
Sade эл а ыз * 
888488 28.28.0185 


چیھ ھک ھھھ ھھھ 
эз‏ ھھھ АА‏ کچ 


ар 
„з 


Notes оп listing 


50 A$ will hold the binary for the graphic — initially all zeros. 


60 Co-ords of marker on grid. 

70 DRAW grid. 

80 Print instructions. 

100 DRAW marker on grid. 

110 Wait for number key to be pressed. 

130 Wipe out marker. 

140 Move marker according to INKEY$. 
150 If0 pressed, goto ‘ink in square’ routine. 
160 If9 pressed, goto ‘wipe square clean’ routine. 
170 Check for finished graphic. 

190 Repeatloop. ` 
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200—280 Finished graphic. The DIMensioned array A holds 


the data, found by adding ‘DIM’ to A$ and finding its 
VALue. 

Note that DIM is a keyword, and must be entered as such, 
1.е., press CAPS SHIFT, then SYMBOL SHIFT, then let 
goand press the J key. 

Note use of CHR$ 8 in line 210 to backspace and remove the 
last comma in the DATA statement. 

If corrections, goto 300, otherwise STOP. 
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300 Clear bottom part of screen and go to main loop. 
500—510 Black in square, and puta 1 in A$. Goto main loop. 
600-610 Whiten square and put a0 in A$. Goto main loop. 


Listing 
1 REM U.D... Designer 
в REM © S.Robert Speet дава 
Ба DIM афС5,6}: FOR РАЗ ТО 2: 
LET a8 1; -"вавевева“: NEXT Е 
exu) БЕ х= LET ӨҢ езі 
ға FOR РАБ то в: PLOT &,88+ 
а: DRAW 58,8: PLOT Ета, ва: D 
е, зе: NEXT Е 
ве PRINT HT 23,8: "Press keysa 
:-6,7,8 to move, key а for Бізек 
Bquare, = to erase square, and 


2 when finished." 


icc OVER 1: PLOT ix—.6) 415,154 
меле: ORAL 1,0: DRAN 8,2: DRAH 
сую: ВЕНИ а, -а 
и. IF INKEYS<"°S" THEN GO T 


г 


+ 


128 PLOT ix—.5J-20,164—20. DE 
AUW 1,8: DRAH ае: DRAN -2,6: DRA 


Wo. із: OVER а 


138 LET x=x+t(INKEYsS="3") -(INKEY 
ха): LET woud (INKEYS="6°3 {ТМ 


REY = и) 

348 LEY ХЕХЕ СЕН: LET ч 
ы+іц 4 33 {ы уа 
. ТЕ INKEYS="8" THEN GO TO Se 


166 IF ІіІНКЕЎ ША а“ THEN со TO Б 


176 IF INKEYS="1" THEN GO TO ва 


_ IF INKEY $2" “ THEN ВЕЕР „б, 
іше са то іга 


зав DIM a(S): PRINT AT 17.017 
ATA"; 


210 FOR Раз 

("BIN “sas OF) у: 

NEST Е: PRINT CHR а,“ “ 
220 FOR ісе то ғақ 
144 +, ат+1 
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азе PRINT AT 2,3@;CHRS 144: PRI 


~ $ 
вай FOR F-i та за FOR а-і TO 4 
e PRINT CHRS 144; : NEXT а: PRIM 
T FY Ғ,іш;: NEXT Е 
езе PRINT AT 28,8; “Corrections "> 


INKEY $: IF be=“u TH 


Sem PUR теңе уш ke: SS ат Та 


8; аз 
E REST FEF GO то тва 

SEE FOR ғыз TO 3 PLOY ix-—-i1: xi 
аа РЕА: DRAN В „в: NEXT Р 
518 LET a$(u,x)-"1": BEEP .5,-2 
а: GO TO Leas 

5ES INVERSE i: FOR Fei TO е: PL 
OT {x-1} 3161, Я Ре-пхза-: GRAY В 
€: NEST Е. INVERSE = 

mice LET s8fy.xe)="@": BEEP ,Е,-2 
= 5Û TO ism 

Graphic Lists 


Naturally, you will want to make your own characters or- 
graphics, but here are some useful ones to start you off. The 
eight numbers for each graphic are given asa DATA list. 


5 a 
ي‎ а Y l ` oe ru 
ӘНІН 52,52,58, F2, 22, за, „5 
з X OH M PS 
Бата Ба. Ба. Ре вв за тея в 
uu eR en ue 
46 Be RR По S 
Әнін БА ва. FE, Зе. E, 74,35,2 
За 55 За 55 55 55 
ud т = ке тъ = = 
о DATA 1292,03, 136,214, 33,78, 1,5 
- Een за 


Е 
z 
bs 
Пи) 
Їй 
қ, 

Vd 
n 
> 

fs 
ці 
ТІ! 
i 

P. 
5i 
% 

hu 
fost 
М 
he 

Li 
“ 
^ 

"| 
I 
% 

м 


; ИП m m 
м ~ e 
" © 5 wo M б 
Я б йі p n D) я Hi “ * 9 
f б [4] fo * % i] ІМ ^ ^ ^ DA ЏИ] ы 
қ“ ^ ^ - Ш ш + Ш d 4 wm № “о оф 
. № [^ MU @ [5] fi 40 € Ma "M e 10 5 ІЙ ^ 
Ци) ЕС % "4 ^ D яч sh ІП М ^ ^ ^ Пи) tni fy 
sen) (КІ М ^ — qu ” ^ ^ “ 
МК» и ШТ mwm іу o EET с » М ^ 
Пи t "d (ој ^ ^ М № І» qm ` ^ ^ ty i) [un 


= 

= 

= 

Ej 
„ап вв „се, 16, 4144;56 


J ПИЯ йй иШ ое Na 5 я 
кофи hO ў. Ка PIE ы ыш #9 du) e os eos туш ще б № ~ 
E ^ LN IN A » ІМ о ҮЛ ао لا‎ 5 7 “4 
«а зи бо d AC) ло ый ыт! #8 a, s Се] моб Q s ИМ щй ш ву 
З D D D “ “ “ Й D ^ "^ “і м ^ 


і "^ 
(00109 +f ўш тб +9 КВ AC чт wf йй “a Temp vem) ФП Әсі 5% Te Hy 
220000 ад а Өш E ЕШ ЯШ мй ик Ма выў * tem фа ӨШ чо RE ef 


` USER-DEFINED CHARACTERS | 


| 2 - ра at F өн je | 7/2 F | pe 

я, oft 4E n: «E alt з к “Т alt alt =, "m А ай CL б, 
ќи а dG (з [Ж] я (Ў а Ф а е е 0 (Ј Вр ТА) a 

"E LE Мк A uc o d QE s GE "fy 


“© 
VV 
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+ ғ 2 = = 
v n к ~ тан: XS 

ae мы Кыш үсү c: = 
раты ВА ее S= , == , ë , ë 

= berg іы 

ЕЖЕЖЕР 02. кылу 
рата & „быз зе S= е ее, == , & = 
= SS GP Ge dX зе 
рата в ma .2355 ,255 .24,35.8,8 
RS 59 SS te fe uo 
рта 24,58 3E, 125S, ва св == S 

= sx xs 
ља Б Б А = ne e: wa ci а, 
Саре €,.55.54 == 224 л РЕ ша ДАРЕ 


Customized Graphic Sets 


Some types of graphics tend to be used together; for example, 
a spaceship graphic is likely to be accompanied by several other 
spacecraft graphics, missiles and ‘explosion’ graphics. 

A couple of sets are given here. It may be more convenient 
to store these sets on a separate cassette of their own, so that 
they can be easily located and MERGEd with other programs. 
For this reason, the line numbers start at 9300, since it is 
unlikely that your main program will have the line numbers 
9300 onwards already in use. 


эзаа НЕ“ Tank UDGS bu 3.8.5. 


стазе RESTORE 93528: FOR Е-@ TO 15 
> FOR @=@ TO >: READ а: РОКЕ сен 
ЖЕНЕ сбл У +ga: NEXT G: NEXT 
өзге PATA G, B.S, 30,56, 126,259,22 
2.0.2.0, 120,28, 126, 259, тер 

S239 DATS 0,8,9,8, 122, 78.12.2197 
мава, за 298,254,102 
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S340 DATS 9.0,565.1,35,127.42,351, 
Ə. 128, 192,240,248, 255,170,252 
S250 DATA &,1,3,15,31,255,85,63, 
2.0.2352, 128,240,254, 84,248 


3358 DATA 0O,0,34.15,635.562.21.85,.0 
28,8.2,252.252,984,245 

әз?е сага 06,0.0.54,63.63,.,42,31,0 
:8,132,72,252,252,186,36 

a380 DATA 06.31.2.7.15,127,42,.31, 
ева „РЕ рез .240,252 366,4 
ззее рата 1.0.1.3.:5.63.21.15.0. 
248,84 , 224,242, 254 Ва 248 


S406 PRINT “Tank UDG Set"'' 
S418 FOR f-144 TO 152: PRINT CHR 
$ f;" U” AND Гласот tremi; ~ “п 
НЕ О Р‹148;: NEXT Е: PRINT ^^ 


9420 FOR #=65 то ве: PRINT єнє 
р" AND FeP=sINT tf -урва;е “ AND 
ЕЕБӘ; : NEXT Е 


SSGG ВЕН Castles UBGs bu SRS 
9319 FOR рсӘ TO 18: ЕВЕ паза TD т 
: READ з: PORE VSR OCHRE (4484¢f3 + 
3.32: NEXT ә: NEXT Е 

S320 DATA 204,204,255 ,585,255.255 
.„РЕЕ 255.325.122.255 .85,.255,255, 
255.255 ана 5 
заза DATA 123, 124,1237, 255,137,25 
5.187.293 

ллы = == = = —— м = 
S328 DATA &.51,51,5=,22.22.38,31 
.8,0,0,0,0.102,102,255,.,0,204,2)04 
,S52,1804,3841,12mp,245 

зве DATS 219,219,255, 223.2355. 22 
3.255, 223, 153, 255, 259,2272. 195. 15 
5,125, 199,215, 216 255, 251 255, 25 
1,255,251 

зака Бата 8,219,219, 255,231, 126., 
183,1235, 15.26, 586,56, 1983, 125,254, 
ва | : 
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SSS Sis сетове шшш а. Se M0 
е, ВВ, i87, ISS 219,255, 152, 126, 126 
105,214 
S380 BATA 127, 103, 255, 25. 255, 255 
-235,255,254 соза реБ ЗЕ. сев, чы, 


255,255 


Eug Бшш oU НОИ 
PRINT СЕН F;U Yj: 


EO Fie GR 
£ 


f-144 TO 158 


"yis 
ft 
2 

Hr 

ый 


10 НЕМ Севт е picture by ЕБЕ 
га PRINT TRS 34; OK“; TRE 12; “HH 
B Е s; joo 

в“; TRB 131; "ННННЕНЕ рака AN 
зе PRINT TAB Bi "UK J K ы] Шы шш ae 
аб PRINT TRS Б: "ссесссссесесес 
ха PRINT TRE C.IUDEPDEFDET БЕРЕ 


ЕЕБЕР“ 
56 PRINT тве 5; “NONONONONNONON 
DONOND" 


RCRABSSAN” 
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Graphics Rotation and Reflection 


This is a very useful program when you have designed some 
user-defined graphics and now want them facing in different 
directions. A spaceship may be needed pointing into all four 
points of the compass; a man may have to fall off a cliff 
horizontally or in an upside-down position; and a dinosaur 
facing right has to have an opponent facing left. This program 
gives you graphic rotation in all four directions and also 
reflected in all four directions — eight poses in all. 


To use 
RUN and input the data for your graphic one by one, with 
ENTER after each. You can input it as normal numbers (base 
10), e.g., 40, or as a binary number, e.g., BIN 101000. When 
you have finished, the screen clears, and after a short pause a 
large version of your graphic appears, along with an actual-size 
character showing your graphic singularly and in a block of 
nine copies of it. The data is also given. 

Press ENTER and the reflected upside-down version of your 
graphic appears, with data, etc. When you are ready, press 
ENTER, and repeat for all the other reflections and rotations. 


Typical use of program 
Due to symmetry of this graphic, there are only four ways of 
pointing it. 


USER-DEFINED CHARACTERS 


& 
AA 
KEK 
«ж 


Pata 0,59, 24, 24B, ала Од 50.1 


въз 
жж» 
жж» 


Data eG,75,42,51,91,42,76,8 
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Notes on listing 

50 A$ holds the picture of the graphic. 

60 СНЕЗ 144 is the ‘chessboard’ pattern which appears grey 
on the picture. 

70 B$holds the binary numbers which represent the graphic. 

100-160 INPUT data for your graphic. Set Аб to picture of 
graphic. 

200-260 Draw picture of graphics and actual graphic 
characters. 

210 READ columns and rows of A$ to be printed. This 
READing of variables, rather than numbers or strings, can 
be very useful. However, as each pair has to be read several 
times, RESTORE is used and hence each pair must have its 
own line number. 

220 Set B$ to binary number representation of A$. 

240 The BIN is the keyword BIN, not 3 separate letters. 

250 PRINT block of characters and single character. 

260 Repeat for next rotation/reflection when key pressed. 

8000-8070 DATA for column and row of A$ to print. 


Note Do not put all the DATA into one program line. 


Listing 
i REM Graphics Rotation and 
Reflection 
2 БЕН © S.Robert Speel 1852 
за INK 1: PAPER В: BORDER 4: С 
LS 


ве DIH за (і8,Бі: FOR РЕЗ TO а: 
EOR eis ты 595 LEY pur Se CHAS 1 
ele асат шз NIZAT 

са FOR F=8 TO = f STEP 2: РОКЕ U 
SR CHRS 144+7,85: POKE USR CHRẸ 
Лай ++ 1, 1 РС: NEXT f 

та DIH b&£ío.B8) 


igo PRINT " Input the data Рог 
uour"""graphit, Following Bech 7 
Umber’ “with ENTER. 

iig FOR F-1 TO &: INPUT “Number 

CS ip в ORS BEER 3.18 
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128 FOR а=8 TO т: IF nux=>+ 2-3 
y THEN GO TO зза FM ч 
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438 со та АС > | 
148 LET asif.ag+ii= %: LET ғыш о 
g-2ti?-—-gi 
ізе NEXT а: NEXT Р 
зей CLS 

F=G TO T: PRINT UE 


зва FOR 


210 FOR әсі TO а: PRINT "E; E 
OR h-1 TO а: RESTORE ӨФӨ sia: 
НЕБЕ ab: PRINT a$ia.bhbi; 

сев LET bs іа, въже“: ІЁ. Beta: hi 
=” U THEN LET bttQg,hi=" 

аза NEXT В: PRINT EU: NEXT 8: 
PRINT "E А 

248 PRINT AT із. Gus IEEE} пто s EGER 

isl TO 2: PRINT UAL (VIN “tbat 
зз“: БӨКЕ ОЗЕ CHR 14547 ИА 
GE S “$bS C233: NEXT i: PRINT 

258 PRINT AT =, 35; puc зае: FOR 

іш? TO S: PRINT AT з „ва; сине 14 
5, CHR 145; CHR 145: NEXT i 

S268 PHUSE Б. CLS - NENF f 
вера рата gh 
calo DATA S-g.h 
ваге реге g.S-h 
заза DATA S-9.9—-h 
Sede DATA в.а 
заза DATA @-h.g 
S860 DATA h,t-d 
цата DATA S-h,2-u 


Extending User-defined 
Graphics 


There is a limit to the number of user-defined graphics which 
can be used at one time — 21. You may think it unlikely that 
you will want more than this number in one program, but there 
are many situations where you will find you will need a few 
extra graphics. For instance, say in a ‘space’ game, your ship 
consists of two graphics: if you wish to rotate it in all four points 
of the compass, you will need a total of eight user-defined 
graphics. Add a couple of enemy spacecraft and you may not 
have any space left for user-defined missiles . . . . 

Another case is when you want a complete user-defined 
alphabet, for example Greek. One way of coping, if all the 
graphics are not to be used at once, is to use a ‘Data switch’. 

Data switch means that where there is an alternative between 
several different graphics, according to the situation, the 
program RESTOREs to the line number of the graphic(s) 
desired. So the same user-defined character space, e.g., CHR$ 
144, can be used for several different graphics. This is a useful 
technique to cut down on sub-routines even if you do not intend 
to use many user-defined graphics. A good example of this 
method is found in Space Raider. 

Another problem with user-defined graphics is recognizing 
them. SCREEN$ will not work, but just return the empty 
string. The normal way to get around this is to use ATTR, and 
have each of the various user-defined graphics characters a 
different colour or brightness to distinguish them. However, 
this will not cover all eventualities. Consider the common 
problem of background. A user-defined tank is travelling 
across a terrain of full stops and plus signs. To stop the tank 
leaving an empty stripe behind it as it moves, the square in front 
of it is deleted each go and copied into Аў, so that, for example, 
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. a tank going across the screen to the right, PRINTed at Y,X, | 
‚ asuitable command would be: 


LET A$ = SCREEN$(Y,X 4 1) 


Then, when the tank moves on, A$ is PRINTed in its place, 
so the tank moves ‘over’ the terrain. But when the full stops and 
plus signs are replaced by user-defined grass and bushes, the 
above technique will not work as SCREEN? cannot detect the 
user-defined graphic. Again, we can use ATTR: if the 
ATTRibutes of the square add up to 116 (bright green on yel- 
low) PRINT a bush, if 52 (dull green on yellow) PRINT grass. 
This becomes impracticable when there are several different 
types of foliage or other graphics to be recognized. 

What we need is a way to identify such UDGs using 
SCREENS. There is a system variable called CHARS which 
stores the location of the beginning of the character set in ROM 
—256. If CHARS is POKEd to a new value, in RAM, we can 
make our own character set. Usually, we will want to keep the 
normal character set, but change a few of the less-often used 
characters, such as the ampersand (&), the exclamation mark 
(!) and the £ sign. These new graphics will be recognized by 
SCREEN? and thus be more useful than normal user-defined 
graphics. In fact, if you want to keep your £ sign, exclamation 
mark and so on, you can set up some normal user-defined 
graphics to hold these. 

The idea of using an alternate character set in RAM is also 
a solution to the problem of not having enough user-defined 
graphics. You can replace not only the little used characters, 
but also, for instance, the lower-case letters. You can have your 
complete upper- and lower-case Greek alphabet and keep all 21 
of your normal user-definable graphics available! 

The only problem is with listings. After having changed your 
complete character set to Greek, all the error messages and 
listings will be in Greek letters. The error messages do not 
really matter, but a listing in Greek (or in block graphics, etc.) 
can be difficult to follow and correct. There is a cure. 

At the end of the program, have a line POKEing CHARS 
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back to its normal position in ROM. 
The following program, Letterwriter, shows how you can 
change your character set to ‘handwritten’ text. 


Letterwriter 


To use 

Letterwriter is a program which lets you write short letters 
using simulated handwriting. All the normal letter characters, 
both capital and lower case, are replaced by letters designed to 
join up to each other. 

When you RUN this program the first time after typing it in 
or LOADing it, the name ‘Letterwriter’ will appear on screen, 
and under it a constantly increasing number. This number will 
rapidly increase to 760, and it is there so that you can tell that 
the program is running. Then, after a short pause, you will be 
asked how you sign yourself, who the letter is to be addressed 
to, and the date (if no date is required just press ENTER). 

Next you are asked for the text of the letter. Type it in 
without worrying about overlapping from one line to the next 
in mid-word —.the computer will take care of that. When you 
have finished, press ENTER and, after a few seconds, the 
whole letter will appear, in ‘handwriting’, including a flourish 
on your signature. 


Bear Вела Ке“, 


Do yon Peet th ah aourt 29 
урне ћу حلصم‎ Ee دهد‎ Lee s T 
fre tae Jaume og Lect “tere 


Jeo AA gare seo? ТЕ се, عله‎ 
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LETTER WRE TER to gab- мача 
US де А “А a muhupaq tian. T. 


Ao , 


-€ 


5. Robert Seset? 


Sear Ais, 


ide. женама to dong tere HrU 
Am знал“ یج‎ patsa. dot Cane 
more себе, due Lo abet. aon 
AA САР. Ба. значы mg 0. дыы. 44 
Shon. Барань А. | | 


То SRE 
Саламея Dept. 2 


ъжъ 


Notes on listing 

The main part of this program is the data in lines 9400-9630. 
These contain the data for the alternate letters, and may be used 
in other programs. The rest of the program consists of routines 
to POKE the data into RAM, the part where you enter your 
letter and what is really a very simple ‘word processor’ to set 
out the letter neatly, without words overlapping lines. 


20 This line means that after the first RUN, you will not have 
to wait while the character set is POKEd into RAM. | 
110-150 Input name, who the letter is to, date and text of 

letter. 
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Note that the text, contained in d$, has some dummy spaces 
put on to the end of it, as d$ tends to grow in length as it 1$. 
processed. 

160 POKE CHARS to the new character set in RAM. 

Note that CHARS can be POKEd from character set to 
character set without delay at any time. 

200—320 Check end of each line of d$ (text of letter) and if a 
word is split there, add spaces until the word is all on the next 
line. 

Note that this results in d$ increasing in length. Finally, the 
excess spaces at the end are removed. 

400—420 PRINT text of letter, together with date, signature, 
etc. 

Note that the signature is complete with a curly flourish at 
the end! i 


As listed, the letter will leave a blank line between each line of 
text, but for longer letters, you can make the computer print 
on every line by erasing the two apostrophes before the ‘NEXT 
Е in line 410. l 


430 POKE CHARS back to Sinclair’s character set. 

440—490 COPY routine- delete if you have no printer. 

9300-9320 POKE complete character set into RAM starting at 
address 31000. Print out every tenth byte to let you know 
how it is getting on. 

9330 POKE your lower-case letters into RAM, and the three- 
character flourish for signature. 

9340 POKE your capital letters into RAM. RESTORE not 
necessary but useful as a safeguard if more DATA added to 
program later. 

9350 Go back to main program. 

9360 DATA for flourish. 

9400-9520 DATA for lower-case letters. 

9550-9630 DATA for capital letters. 
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Listing 
1 БЕН Letter Writer 
2 REM © 5 „повег?! Speel 19382 
за PRINT “Letter Writer 
зе IF PEER miss THEN сп SUB 
enea 
заб CLS : PRINT “Letter Writer“ 
112 INPUT "HOw will чан Sign uo 
pacco ак 
ей INPUT Liha із the tetter 2 


==. 
з 


bi 
аза INPUT predon s чете, се 
аа INPUT “tupe in text аў Бем" 


Sr "рев; RH ets! ers 
ама FOR ісі TO 5: LET d= gee" 
NEXT 


= 
маса PORE 23606,2324: POKE 238827,1 
ма 


„сеа FOR Fel TO LEN dz-3G2 STEP 3 


„240 IF ds(r«31)-" " THEN во TO 
“зра FOR g-Fi31 TO г STEP -1 А 
зза IF d$ig)-" " THEN ëD та заа 
Sap NEXT е | 
гае со TD 318 
заа FOR h-g TO #+31: LET d$=d$í 
TO ge" “завіс ТО з: NEXT h 
зза NEXT Е 
зва LET d$&-d$i TO LEN d$-128) 
gea CLS: PRINT c$ TAE а; “Dear 
азе PRINT °: FOR в-а TO LEN d$ 
-За STEP за: PRINT as tf То гъза? 


С ЕЕ 

420 PRINT “TAB 10;"vYours,"^'.a 
$; "+": PRINT TAB Лан ем Sp үс 
азё PORE 236056,0: POKE 255a7,66 - 
ааа PRINT HT =. а: "сору? ty газ 
4350 IF INKEY£-"ó" THEN со та ае 


469 IF INKEY£-"n" THEN STOP 

472 GO TO 448 

LOU PRINT AT 21,09" AE 
Zoo COPY : STOP 
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азба FOR f= та РЕВ: PORKE S1888+ 
г, РЕЕК Шееле +f) 

ӘЗІЗ IF [.2O0-INT (Ff -281 THEN PRI 
Ihr G^ эшш ў 

2328 NEXT F 

газе RESTORE 3357: FOR f=49e TO 
габ: READ a: POKE 31068004F,a: МЕХ 


эзара RESTORE 85508: FOR f=264 TO 
ia: КЕНІ: а: PORE 31202-+f,2: МЕК 


2359 RETURN 

S368 DATA е,2,48,?2,1236,16,96,12 
т 150 D D Spa 16,52 007, == 
„32;64.64,35,.28 

заве рата @.0,56.4.68,197.688,8,4 
5,48,32,124,1563,384,50,ü8 

941@ DATA 0,8,28,322, 96, 183,28,80, 
4,4,4,62,69,196,60,8 

S428 DATA B.0,56,55,242,.,556,580,0. 
12,18,28,112,459,48,80,96 

заза DATA O,0,.28,36,93.134,4,24, 
a, 43, 30,25; 120, 283, F5, 2 

9448 DATA а,15,8,16,4а,214 8.0,1 
6&,8,16,48,211,60,88,96 

2450 DATA 32,88, 2116, 164 ,.56.57,36 
,0.24,.,40.40,45,50,145,14 

4460 BATA 0,0,104.,804,212, ‘35,586, e 
,8,0,80,56,16080,155,38.0 

ёата рата 8,0,55,70,1597,68,56,0, 
6,0,55,100,167,60,32,32 

адва рата O,0,55,100,188,5,5,4,98 
,8,36,122,161,32,52,a 

Зада рата 0,0.48,64,187,4,56,0,3 
2,32,56,32,97,166,24,¢6 

осва рата 6,0.,56,100.164,37,26,0 
„а,а,36.38,1285,168.16,а8 

4510 рата а,2,34,185,171,42,28,0 
,0,0,102,152,1356.25, 

6520 Бата B,0.356,100,191,20,35,2 
4,@,8,56,72,145,44,1416,13 

23558 DATA 24,36,36,68,36,165,1a2 
ааа, зе 38, 56,27, 166, 123,0, Ра, 
35,35,32,56,167.24,8 

9560 DATA 68,82,81,57,37,22еа,62, 
@,56,72,64,48,54,199,56,4,31,16; 
48,95,144,16,16,6 | 
әзге рата 56.68,68.64,287,68,.56, 
а,л228.36,368,68,32,365 182;:20,58, а 
4,46,316,16,58,84,8 


27. 
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зеза DATA 53,233,383, 72,72,48,23,2 

8,164,40,ав,48,456, Тав” а, аё. тёё; “а 
„зе, зе,„зз,тев,е 

овца PATH зА зА 22 .ве, ==, 163,98, 

2: зав,1га, 162,34:34,34:36, е, ед, = 
5.36, 35, 183, 266, doc e 


за 


чекав рата бе,за,3 

22,5 ,68,658.6B.212.76,68,2,56, 
746,56, 288.165 „а,б 

35 DATA 28.34,32,з2,138,3,2в8,0 
,113,142,8,8,9,14.24,0,.58,58, ва. 
сеа,6беа,14=>7,Ее=2,06 

съеге DHIH &65,65,70,69,1558,40,16, 
$,1350,120,150,147,145.140,105,0, 
i3g,62,40,156,16,170,58,0 - 

9636 DATA 135, 18,50,94, 3130,15, 18, 
12,62,68, 8, 16,32, 77,242,080 


High-resolution Graphics 


By high-resolution graphics I mean the Spectrum’s ability to 
draw fine lines, curves and circles, and PLOT on a grid of 
192 х 256 dot positions, not user-defined graphics, which are 
dealt with on pp. 34-56. 

When you want fast moving graphics, use user-defined 
graphics. In many programs the moving bits will be user- 
defined graphics and the backgrounds may be drawn with high- 
resolution graphics. 
` High-resolution is suitable for picture drawing, graph 
plotting, plans of buildings, backgrounds, maps and pie- 
charts. It is also useful for illustrating many maths and scientific 
programs. 

Geometrical shapes and patterns can be most useful in 
‘showing off the Spectrum's powerful high-res. Here are a few 
short programs which are worth experimenting with. 


Cage 


There is a great sense of depth to this picture on screen. It is 
easy to alter the size and shape by changing a and b. By 
changing the STEP value, line 30, you can achieve a more solid 
shape (STEP 2 is quite effective) or a more *wiry' one (try STEP 
4). 

This is a good program to experiment with, and to see how 
to alter the depth, shape and structure of a picture on screen. 
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Listing 


3 REM Cage 


12 BRIGHT 1: PAPER Б: INK 1: B 
ORDER 2: СІЗ 

28 LET хаба: LET y= 

за FOR fi TO 100 STEP 2,5 

48 LET a=1@@-f: LET b-2108-—-Ff: 
ET c=ta+b) 219 


лав PLOT x,u 
110 DRAW га: DRAW @,b: DRAN -з 


(EL S 
120 DRAW c, c: DRAW @,b: DRAW -c 
„+ С: DRA a,- 


zga PLOT x-C,u-fc 
218 DRAW a.@: DRAH @, b: DRAW -з 
х: DR ни а -b 


390 PLOT хез,9 
зла ORAH сс: DRAN a,b: DRAN -rt 
-с DRAM а. -Ь 

т 
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Sphere 


This program shows use of high-res DRAWing. 

The picture on paper does not, unfortunately, compare with 
the screen picture, which looks very solid and almost three- 
dimensional. 


IL 


Notes on listing 

Lines 120 and 170 show DRAW forming curves. If these are 
changed to DRAW 100,0,Ғ and DRAW 0,-100,f, and the 
second PLOT (line 160) changed, a smaller sphere can be 
drawn. Try altering the STEP values, in lines 100 and 150, to 
make the sphere ‘darker’ and more solid, or ‘lighter’ and more 
segmented. 


Listing 
1 ВЕН sphere 
19 INK 5: PAPER а: BORDER 2: С 


а FOR Ff=-PY TO БІ STEP „2 
а PLOT Se@,es 
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igo DRAW 150,029, F М 
358 NEXT F 
isc FOR fz-PI TO Pi STEP „з 
Ба PLOT 124,160 
за DRAW а,-158,Р 
430 NEXT f 
Revolving Surface 


With small shapes, DRAWing is fast enough to give a fairly 
continuous moving picture. 
Here а small flat surface appears to rotate ‘into’ the screen. 


Notes on listing 

Line 20 a controls the width difference of the rotating surface 
in comparison to its height, b gives the speed and continuity 
of the rotation, and c is the size of the shape. 

Lines 100-130 contain а loop which DRAWs OVER 1 twice, 
thus first drawing the surface, then erasing it. This gives a slight 
flicker to the picture. 

If c is increased, the ‘surface’ gets larger, and the flicker more 
pronounced, if smaller, there is less flicker. 


Listing 


REH Бесчсісіпа Surface 


ха PAPER е: SQRCER 4: INK а: C 
OVER 1 
LET ага: LET Боза: LET седа 


FOR РЕЗ TG 2 


. зе 
DRAH c-2.0. DRAN Ас: DRAN 
DRAW ©, -c ; 
МЕХТ Е 


LET a=a+b 
ТЕ a-c QR зга THEN LET БЕ-Е 
со та іра 


үй 


ju 
fe 


г" 


Ф 
& 


POM ыц 


Мей (Ar Парос 
GGG & спо 
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Block Complex 


This program is based on a cube-drawing routine — by adding 
random length, breadth and position, the program draws a 
wide range of different blocks on the screen. Although 100 
blocks can be drawn, the picture often looks at its best after 
about 20 or 30 blocks. 


Notes on listing 

20. Number of blocks, change as desired, or use BREAK. 

30 хапа y are the position of the bottom front left-hand corner 
of the block. 

40 ais the length, b the breadth and c the depth of the block. 
Try making c independent of a and b (e.g., LET C - RND 
x15). 

100-130 Draw block. Try making the ink colour random, or 
the paper colour, and see what happens as the screen fills up. 


Listing 


1 REM Glock Complex 


10 BRIGHT 1: PAPER Е: INK 3: 
ORDER 2 dia 
га FOR f=1 ТО 106 


140 
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за LET x=RND#1i5@: СЕ ul-RNDXxOGOS 

40 LET a=RNDs7e: bIRMDEXO. 
LET c=tia+bi 710 

100 PLOT x,y: DRAN аа: DRAN е, 
: DRAN ge PEE а,Ь 

iig свай UC @.b: DREW -c 
„-с: BRA а: 

ies PLOT xtc. bc. DRAW аа. DRA 
ы G b: DRAN -à,0: DRAW @,-b 

„158 PLOT х+а.ч: DRAN с.с: DRAN 


DRAW -c,-¢: OAL б, -b 
МЕХТ F 


Modules: Movement of a 
Small Object 


In most moving graphics games the player is in control of some 
small object — representing a spacecraft, a car, a bat, etc., which 
can move at least in one dimension and often in two. By a small 
object I mean something up to about three graphics characters 
in size. For the following routines, an asterisk (ж) denotes the 
object. 


Movement in one dimension 


This involves moving left and right, or up and down, not both. 

Before actually writing a routine, we must consider what 
happens when the object moves. Assuming that we don’t want 
to leave a trail of asterisks behind whenever the object moves, 
we have to erase the ‘old’ asterisk when moving to a different 
co-ordinate. Using CLS is a poor answer, since usually there 
are other things on the screen and to rePRINT or rePLOT 
these each go is unacceptable in terms of time taken. For left 
and right movement, if instead of just PRINTing ж, we put a 
space before and after the asterisk, then when moving, the old 
asterisks are erased by the spaces. This is very suitable for 
games using ‘paddles’ or bats in breakout-type games, tennis 
games and so on, and also in games involving laser guns which 
move from side to side. 


(A) LEFT/RIGHT MOVEMENT AT ONE SPEED MODULE 


Note that the asterisk cannot go offscreen because of the (X <2) 
and (X 29). If instead of an asterisk you have, say, a paddle 


~ 
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MAINLOOP .- 
500 LET X-:X4itINKEY£-"B")-(INKEY 
Бата іх го — (X y 29 

взе PRINT AT ое; OU 


GOTO MAINLOOP 


made of three inverse spaces, then line 510 would read PRINT | 
AT Y,X;‘ Hmm ° and the limits for X would be changed to 
(X<3) and (X >28). 


(B) UP/DOWN MOVEMENT AT ONE SPEED MODULE 


MAINLOOP 


BAD LET Yey4s (INKEY $="6") - (ТМКЕУ 
Se" + (Y <р) уа) 
S1@ PRINT AT Y-1,X;" “JAT Y,Xi' 

& 


GOTO MAINLOOP 


. Remember that the Y co-ordinate cannot be more than 21. To 
PRINT a vertical line of, for instance, three asterisks, line 510 ` 
would become: 


510 PRINT AT Ү-2,Х;“ “АТ Y-LX; SAT Y, X; 
АНАНЫ IC AY X 


and the limits in line 500 changed to (Y <3) and (Y 18). 

Another common situation occurs when the object is moving 
at a definite speed in one dimension and is controllable in 
another dimension. For example, an aeroplane might go at a 
constant speed across the screen, but its height is controlled by 
the player. 


64 MODULES: MOVEMENT OF A SMALL OBJECT 
(C) MOVEMENT IN TWO DIMENSIONS WITH CONTROL IN 
ONE DIMENSION 


MAINLOOP 

Беа LET Yay 4 (INKEY $="6") - CINKEY 
530 LET Х=х+1 

Sea PRINT ar Y-1,X;" "рат Y X; 


" *" SAT Ү+ї,х; 
sa IF VES ов v»i8 THEN GOTO CR 


s 
RSHROUT IN 
S46 IF X28 THEN PRINT RT Y,X;' 
550 IF *>28 THEN LET x=@ 


‘GOTO MAINLOOP 


(D) TWO-DIMENSIONAL MOVEMENT AT ONE SPEED 


МАІМ ООР 
ӘӘ LET X=X+ i INKEYS="6"1 -CINKEY 
="5") + (кае - (X 28) 
ла LET мМау + iINKEYs="6") - CINKEY 
a" 7") + (Y ка — (Y > 19) 
заа PRINT AT Y-1,X;" “SAT МАХ, 
. 2 “> Я ак" ee 


GOTO MAINLOOP 


Here the 5, 6, 7 and 8 keys are all used to control the object. 
The idea of erasing old copies of the object by PRINTing spaces 
is more complex, since we need to print spaces all around the 
object. 
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(E) MOVEMENT AT ONE SPEED WITH MOMENTUM 


MAINLOOP 

заа LET хл=зем (X15 CINKEY$=]"8") 
жос par eo аа Ээ з 

S10 і. маззен (у1+ (INKEY $="6" 3 
~ (INKEY $="7")4t¥ <2) - СУ 133 

бре LET XzX«xi 

530 LET У-сУузу1 

Бад PRINT HT Y-1,X;" “SAT Y, x 
(E cq MEI +1,ж;“ 

GOTO MAINLOOP 


When a spaceship moves in a particular direction, it will 
continue to move in this direction until stopped. This is the 
. basis for momentum movement. If you make your object move 
left by pressing key 5 it will carry on going in that direction until 
you press 8 to stop it. If you press 5 then 7, the ship will go left 
and up, diagonally. 

Here we have to introduce two new variables: the velocity in 
X, X1 and the velocity in Y, Y1. Thus, each go, the object will 
move from (Y,X) to (Y+Y1, X+X1). Set ХІ and ҮІ to 0 
initially. 


(F) MOVEMENT WITH MOMENTUM AT MORE THAN ONE 
SPEED 


HA INLOOP 


sog LET X 
NREY$="8") 
„аа 


ге 


ЕЗ THEN GOTO CRASHROUT INE 


66 “MODULES: MOVEMENT OF A SMALL OBJECT 
s. PRINT AT у-ма,х-ха;" чат 
г 2 Я ae +" 


GOTO MAINLOOP 


This means that if you hold down the 5 button the object will 
not only move, but accelerate. 

"The maximum speed allowed is 3 in any direction, but this 
can be changed to any desired value. 

As for limits, if the object attempts to go offscreen at speed 
1, it will merely bounce back, but if it goes offscreen at speed 
2 or 3, it will crash —1п a prepared CRASHROUTINE. 

Мо here that, instead of PRINTing spaces round the 
object — there are now too many to до — а space is PRINTed 
on top of the object, erasing it, and then the object is PRINTed 
at its new position. 


Of course, the boundaries of the screen in which the object is 
allowed to move in and the results of trying to move offscreen 
will be varied from game to game. 

The above modules can be combined with other factors, such 
as SCROLL. The best way to do this is to put the routine in 
` unaltered and see if something odd happens - typically a trail 
of ‘bits of object’ appearing — and this will tell you where to put 
more spaces in. 


Avoiding Problems with 
Programs 


As soon as you start altering programs or writing your own, you 
will find that your programs need debugging. In a2K program 
there might be a dozen errors and, as you correct each one, the 
program will crash at a new point. This can be very dis- 
heartening, but there is a solution: do not write in a program 
more than ten lines long! (This applies only to your new 
programs or modification — existing written programs of any 
length can be copied.) Although this may sound odd, it is very 
useful. Instead of converting your 8K Monopoly-type game 
into a 16K version in one go, do it a little at a time. You might 
start by adding ‘Community Chest’ cards — there were only 
‘Chance’ cards before — by delegating squares 6, 14 and 35 as 
‘Community Chest’ squares. Each time a piece moves, if it 
lands on a ‘COM CHEST? then a sub-routine at 8400 is con- 
sulted. For example: 


4370 IF A(N) = (6 OR 14 OR 35) THEN GOSUB 8400 
8400 PRINT “YOU LAND ON COMMUNITY CHEST” 
8407 STOP 

8500 RETURN 

(ACN) is the position of the piece just moved.) 


Now RUN the program with this addition to check that it 
works. Since there is little chance of landing on a ‘Community 
Chest’ each go, STOP the program, type LET A(N) = 

NEWLINE, then GOTO 4370. When you find that ‘YOU 
LAND ON COMMUNITY CHEST? is not printed, you can 
stop the program and find out why, with the considerable 
advantage of knowing that the error can only lie in one of lines | 
4370, 8400, 8407 and 8500. In this case the error is obviously 
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in line 4370. After experimentation, it is found that IF ACN) 
= (6 OR 14 OR 35) means IF A(N) = 1, you might decide to 
change line 4370 to IF ACN) = 6 OR AWN) = 14 OR AWN) = 
35 THEN GOSUB 8400. Once you find that this works, carry 
on with a few more lines. 

Obviously, just part of a new section of program may not 
work but usually it can be tested. It may sound slow work to 
check your program after every half a dozen or so lines, but it 
is much easier to deal with problems one at a time than all at 
once at the end. 

This is very good ‘preventive medicine’ but you may have a 
few problems left. These fall into two major types: 


(a) problems which produce false results every time the 
program is run; 

(b) problems which only appear occasionally, or under 
exceptional circumstances. 


The first type are the easiest to fix, while the second type may 
only appear after fifty games. However, there are some helpful 
rules which can be applied to many of these problems: 


(1) Locate the problem 
This may be simple if the program crashes — the type of 
problem and line where the program crashed are given on the 
screen, but where the program carries on with wrong results 
(e.g., invader swallows up missiles, or leaves a black trail), the 
error might be elusive. 


(2) Find the type of problem 
Where the program crashes, a number or letter indicates the 
type of problem. Otherwise check - e.g., does the screen show 
the wrong information? Is it a problem with dines Is there an 
arithmetical problem? 


(3) Atthis stage you may be able to correct the error 
If not, check whether GOSUBs and GOTOs go to the right 


places. Some other common bugs are: 
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FOR-NEXT loops 

Loops of the form 

FORF = 0 TO 20 

LET A(F) = 1 (orany number, variable, etc. ~) 

МЕХТЕ 

will not work. This is because the array A is dimensioned with- 
out A(0). So, on coming to LET A(0) = 1, the program will 
crash. This is a common mistake made when converting 
programs from other makes of computer, or by those who have 
upgraded from an old ROM ZX80. 


This is another loop mistake: 
110ЕОВЕ = 1 TO 10 

120 IF A(F)«6 THEN GOTO 140 
130NEXTF 

140 LET A(F) = A(F)+6 

150 PRINT А(Е) 

160 NEXT F 


This loop will work perfectly unless A(10) = 6. In this case, 
A(10) will be increased by 6 and PRINTed. Remember that 
NEXT F means ‘next F unless finished loop, in which case just 
carry on’. This problem can be avoided by changing the first 
NEXT F to 

130 GOTO 160. 


Numerical calculations 

If a sub-routine such as 

100 LET A(N +6) = A(N+6)(BC+2) 

1010 FORG = 1 ТО 5 5ТЕР .5 

1020 LET A(N+6) = AN +6)-G*RND 

1030 NEXTG 

1040 LET A(N +6) = A(N+6)+INT(RND В) 

1050 RETURN 

gives the wrong answer, it is difficult to see why. Pinpointing 
a mistake may be done by adding PRINT statements. 


1007 PRINT “A(N+6)”; A(N+6) 
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1009 PRINT “N”; N 
1037 PRINT “A(N +6)”; A(N +6) 
1047 PRINT “В”; В 
1049 PRINT “A(N+6)”; А(М+ 6) 
also add 
1050 STOP. 
This shows how A(N--6) changes, and it is usually obvious 
where the mistake lies. For instance, you might have included 
a FOR-NEXT loop using FOR B = 1 TO 6, so instead of B 
being the cube root of 2, or whatever, it will be 6! 

Note the use of line numbers ending in 7 or 9. These can 
easily be picked out and removed after debugging. 


Space on the screen 


Make sure that the screen is not overfilled by any variation of 
your program. This is essential in adventure games, where the 
screen may be filled with writing: e.g., if the hero uses a two- 
handed axe, rather than a sword, against a creature with a long 
name — say a giant caterpillar — the screen may overfill and the 
program gives up. Things like this can be guarded against by 
using CLS more frequently. 


Poking in the wrong place 


Always SAVE a program which uses POKE before testing it 
out. Then, if you accidentally muddled a few addresses and 
POKE flying saucers into your program, nothing is lost. Here 
is an example of how mis-POKEing may appear - here the 
black squares should have been POKEd on screen, but instead 
ended up on the listing. 


13 GOSUB заве ; 
AT VERBS PLE ON Xu ерове Nvv eae Е 
EU it. IN n LM THEN GOTO 1@@ 
pss + ТМКЕУ 5 
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ВИ: IF въ "а" OR вв" THEN GO 
аа бо 
ел LET Хех з=" 8") + IAS "bx . 
пъ- "е = ingz V SUDO = аф“ Suy eer. Age" 4. 2- 
228 LET B=¥+tAs="6") ата ST") + Ç ` 
| Aged") аи {Я 0 25 їй =" 1° - (д%+="2 
230 LET хах (ха) – (531) 
кій LET угу+ {У {8 = (Yo21? 
га IF срез THEN GOTO 100 
све FOR F=1 та за 
270 NEXT Е 
ава GOTO 1 : 
396 IF аф="а“ THEN LET 5Р=-5Р 
зза I Я$=" 9" THEN GOTO дад 
зо“ AB="T" THEN GOTO 520 


3-D Maze 


This program is a game which shows the Spectrum’s hi-res 
abilities to good effect. It occupies nearly all the memory of a 
16K Spectrum, so unless you have an expanded machine, room 
for expansion is limited. z 


To use 
The program forms a maze which you have to try to escape from 
in the shortest possible time. | 

When RUNning the program, you will have to wait for about 
a minute while the maze is randomly formed. Then you are 
shown your first view of the maze. You always start at a cross- 
roadsin the centre of the maze, facing north. 
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| 


i 
| 
E 
H 
i 


| 
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200 IF вф:"а" OR apta” THEN во 


Ет x=x + paver) + мас #4 ў 


Е 
каф="5") Сеа“) 


ў 
ж 


ПОПОВА НО ГО ag 
oe 


@ 
ІЗ 


10A | 
ТЕ As="8" THEN LET 5Р--5Р 
ТЕ As="9" THEN GOTO 400 . 
IF AB="T" THEN GOTO Баа 


3-D Maze 


This program is a game which shows the Spectrum’s hi-res 
abilities to good effect. It occupies nearly all the memory of a 
16K Spectrum, so unless you have an expanded machine, room 
for expansion is limited. ; 


Touse 
The program forms a maze which you have to try to escape from 
in the shortest possible time. 

When RUNning the program, you will have to wait for about 
a minute while the maze is randomly formed. Then you are 
shown your first view of the maze. You always start at a cross- 
roads in the centre of the maze, facing north. 


775 seer were ыны 
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You can move around the maze using the commands: 

on 

left 

right 

reverse ` 
These are typed in when the computer asks ‘What next?’ You 
must press ENTER after a command. : 


To help you orientate yourself, by entering the command 


compass 
the direction in which you are facing is shown: 


East. 


The game is played in real time, and your score at the end is 
given in seconds (the lower the better). You escape by exiting 
the maze on any border and there may be several possible exits. | 
To see how you are getting on, entering ‘time’ will tell youhow +. 
long you Вахе been in the maze (in seconds). У 


Time Se Far 
= 225 secs. 


| 
| 
| 
| 


А wrong turning and precious seconds аге wasted! 

If you get stuck or are convinced there is no way out of the 
maze (this can happen, although very infrequently) enter 
‘help’. This will show you an overhead diagram of most of the 
maze (the whole maze on a 25х25 grid will not fit on the 
screen). Your position is shown, and the direction is given. By 
frequent use of the ‘help’ command you can escape easily from 
most mazes but it's more of a challenge if ‘help’ is a last resort. 


А bird'seye view makes the route to freedom clear. 
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Note that when using ‘reverse’ the effect is to move you on a 
bit, then turn you round. So if you reverse at a crossroads you 
still see a crossroads. Reversing at a T junction when facing the 
T will place your back to the wall, giving a view like this: 


| 


| 


| 


ІШІ 


| 


Reversing when the branch is to one side will change the branch 
to the other side. Reversing at a dead-end or in a straight 
corridor will show a straight corridor, and reversing in a bend 
may give a view like this: 


е Se Far 
газа secs. 
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To summarize, your commands аге: 
on 
reverse 
left 
right 
time 
compass 
and help 
If you wish to stop the program you can press BREAK while 
the computer is drawing a picture. 


Notes on listing 

The program is in three main parts. Lines 50 to 760 are mainly 
concerned with DRA Wing the pictures on screen. Lines 1000- 
1760 deal with your INPUTted commands, and lines 7000—9110 
contain the routines which build up the maze and variables. 


10 Gosub set up maze routines. 

50-130 DRAW straight passage routine. At least part of this 
is used for all the pictures except left and right turns as 
viewed from the corner and when you exit the maze. 

di is the direction you are facing: 0 = north, 1 = west, 2 = 
south and 3 = east. af, al and ar are 0 if there is an opening, 
or 1 if there is a wall in front of you, to your left and to your 
right respectively. 

In lines 80 and 110 the area directly behind you is considered, 
to check if you are standing against a wall. 

150-180 Note use of logical operators. IF NOT al means IF 
al = 0. IF af means IF af >0. 

` 200-260 DRAW passage leading off to left. 

300—350 DRAW passage leading off to right. 

If passages are drawn to both sides, crossroads and T 
junctions can be formed. 

400—420 Change left junction to left turn. 

430—470 Change right junction (or crossroads) to right turn (ог . 
T junction). 

500-530 Dead-end. 

550—590 T junction as seen from straight wall of T. 
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600-660 You escape. DRAW doorway, print time taken and 
make noise. 

700—760 This routine DRAWS left and right turns as seen from 
the corners. 
The multiplication by al means that the routine will TES a 
corridor to the left when al = 0 and to the right when al = 1. 
1000-1080 Enter command routine. All the drawing routines 
and command routines eventually end up here, where you 
ENTER your next command. A command is acknowledged 
Бу ashort BEEP when you press ENTER. 

1200-1220 Go ‘on’. 

1300-1330 Go ‘left’. 

1400-1430 Go ‘right’. 
Note that you cannot walk into a wall. 

1500-1510 ‘Reverse’. 

1550 ‘Compass’. 

1600 “Time’. Uses FuNction DEFined at end of program. 

1700-1760 ‘Help’ routine. PRINTs overhead view of maze, 
missing off the top or bottom few lines according to your 
position. The use of a special character instead of a space for 
a corridor is due to the need for a central solid block when 
there is a square of four-corridor sections, as you cannot have 
large open spaces. 

7000-7010 PRINT instructions. 

8000-8660 Set up random cave system as 25 x 25 grid in blocks 
of 5x5 locations. 
The POKE in line 8010 puts tandemly coloured squares on 
the lower part of the screen, forming a simple pattern to 
watch while the maze is being formed. 
The program stores the maze in a string array Z$, and each 
5x5 block is chosen randomly from the selection of 10, in 
lines 8200-8660. 
Lines 8020 to 8050 ensure that the 5x 5 block chosen will be 
copied into Z$ in one of four ways, i.e., normal, reflected top 
to bottom, reflected left to right, or both. 
Thus there are millions of ways the maze can be formed. Line 

. 8090 puts a crossroads in the centre of the maze, so that you 

„are unlikely to have no way out. 
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8800-8880 X and У are your initial co-ordinates, i.e., in the 
exact centre of the maze. di is your direction, north. X$ con- 
tains the names of the directions. 

8830-8850 DEFines three FuNctions similar to those shown 
in the manual to use the real time clock (systems variable 
FRAMES). 

8860 sets up two user-defined graphics - a man and a corridor 
section. 

8870 starts the internal clock. Note that this happens 
immediately before the game starts, so your time taken does 
not include the time when you are waiting for the computer 
to start. 

9000—9030 is the DATA used to tell the computer which 
square is in front of you and to either side. They are used in 
pairs, e.g., in line 9000, 0, 1 means that when facing north, 
the location in front of you is (X +0, Y 4- 1). 

9100 DATA for user-defined corridor cell. 

9110 DATA for user-defined man. 


Listing 


о со SUB 7000 
= - 


за Сіз : RESTORE SB@@+162di-: R 
ЕВО F1,fFf2,l11,12,ril,r2 

ва IF х=1 QR хавае ӨБ ч=ї OR y= 
25 THEN GO TO Sa 

РО LET af =URL ЕФХ ЕТ, 9+га\: г 
ЕТ atl=URL z$íx-ii.u-i2): £ ET аг = 
UAL 28 (хъг а, ЧАРЕ) 

Be IF z$í(x- fi,9-f2)-"-"1^ AND at 
+ar=1 THEN GO то Рай 

аа съ : PLOY 88.8: DEGU 2 158 
: DRAH S8.-S8: БЕНО се зе DRALL 
я,-ісе: DRAN -ве Лев: DRAH -Se, - 


ВО IF х-1 GR x=25 OR ч=а OH y= 
25 THEN се та вош 

2498 IF 2Stix-Fa,y-F2i=‘i AND NO 
T зі AND NOT ar THEN GO TO 55а 
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іва FOR г=з@е TO 4 STEP = PLO 


T i39-í.2.1080-rF: DRAN P: EXT 
в: ТЕ x=1 ӨН x-25 GR u-i or” ч=2& 
THEN GO TO Gee 

за FOR F=18@@ TO i STEF -1. I 
EST ыз сто и s DRAH Fie: N 


158 IF NOT ai THEN GO ТО 208 
i60 IF NOT ar THEN СО та 388 
170 IF af THEN GO то Бай 

зва со то 1888 


гае PLOT 98,240: BARU @,128: PLO 


T 99,60: DRAN 285,0: DRAN а,ве: Г 
RAN -га,а 
Ете Ани 920,21: DRAW INVERSE 1; 


226 FOR г-за та -i@ STEP -2: PL 


2@6,148-F: РЕНЕ „а: NEXT f 
246 IF NOT ar THEN GO то зай 
258 IF af THEN GO TQ £e 

268 во та 358 


заа PLOT 179,20. DRAH 8,128: PL 
OT 17@,68: DRAN —298,6: DRAW а, „ве 
: DRAN га, е 

sie PLOT 378,38: DRAN INUERSE 3 


зай “ғов POE FR -за БЕ -Е: Pi 
o 37@,F-S@: БЕНИ FOE: NEXT ў 
ззе FOR F=29 PO 1 STEP -4: PLOT 


1?е2,148-Е: DRAN -F,O: NEXT F 
S40 IF af THEN GO TO 45е 
зва со то лава 


ада FOR Ff=81 TO 119: PLOT INVER 
+ Е: DRAN INVERSE 1; 682.82: 


аза PLOT о ва. DAA АБЕ 

i20 GO та зева 

аза FOR Е=61 ТО 119: PLOT INVER 
Бетал. DRAW INVERSE 1; SS. g: 


сЕ ағ ai THEN PLOT зе ба: BRA 
ы ge 
та GO то леве 


Së FOR в-ва ТО 228: PLOY INVER 
ЗЕ 1.:1180,F DRAW INVERSE і; 53,8: 
NEXT Е 

TIE FUR Feili@ ТО тев STEP =: PL 


ОТ Еее: DRAW а,Ба: NEXT Р 


ee 


gi 
РАКА OM 
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өсе PRINT AT 9,14; "DERD"; AT 10, 
За; "ЕНЕ" 
mae со те 1028 


55а FoR Ес? FO 14: PRINT AT ғ.а 
PAY F, ,21; “° и NEXT ЕТЕ 

or -ла то 21: PRINT AT F,@; PAP 

ER Fol: за; = 

. =: NEXT 


Е 

све FOR r-24 TO 63 STEP 2: PLOT 
daf: DRAH OUER 1;255,@: NEXT Г 
aa кшш Made & 


= 


— со EXEC: NEXT 
Seu FOR Fr-e TO 4: PLOT зіў рае 
‚бз: DRAW @,SF: NEXT Е: FOR ер 
то 102 STEP E EE BarP.2,F > 
RAW 1е8-г, са. NEXT 
590 FOR =188 TO ise: PLOT езе- 
г, Е: BRAU f2 -200,8: NEXT F: GO 
то Ieee 
ега BORDER 4: FOR f=i8 TO а STE 
P -18: PLOT 10@8@-F,2@: DRAWN @, 80+ 
F: DRAW S@+f,484+Ff: DRAWN за+г,-—40 
-Е: DRAW ә,-ӛа-ғ : NEXT Р 
sie FOR іс-ре TO 188: PLOT даа, ғ 
6 В 


DRAW ве,е: NEXT 

ере FOR F=1@8 TO 148: PLOT 254F 
EE BREW SIZ2-PriB12.252,28. NE 
“Bae FOR r-i TO зе: PLOT QUER 1; 


pono 6; земно ж ба, се МО тай: H 
Е | 

ада PRINT AT 8,8; ° You have rea 
ched the exit.“ "You took” FN сі 


TE ВЕЕР G dia F—& 
کے‎ 


тра FOR F=13 TO 23: PRINT HT Е, 
а: PAPER З; "б 

> NEXT fF 
718 FOR P-24 то вз STEP 2: PLOT 
ale (РЕВ, ғ: DRAW даваа“ 


FoG@ TO 188 STEP 2: PLO 

т ва+Е-е, г: DRAW 100 f.a: NEXT F 
зе ° pesita то е PLOT 230- 

Е: DRAN F ¥A таи, NEXT Р 

4e FOR f=128 то lio. PLOT al ¥ i 

ә-ғз,ғ: БИВШ 3@+F-aleS5,8: NENT 
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750 PLOT 338+8: 
Б: PLOT i7€8@-atizse 
ғее GO TO зара 
LEC _ INPUT “What 


ЖЕСЕ ЕЕ as$-"on" 


1838 IF аФ-“гісшһь 
ig4G IF a$-"reve 
1850 IF a5-"comp 


AME ЗЕ a$€-"time" 
соя IF ag=‘hetp* 


лава со TO 1008 


128@ IF af THEN 
1210 LET x=x+f i: 
12208 GO TO са 

ізге IF а: THEN 
1310 LET x=x+L1: 


1320 LET di =di +1: 


ET а: а 
1338 GO та за 


Заве IF ar THEN 
1419 LET x=x4ri: 


1420 СЕТ di-di-i: 


Еп ал == 

1438 GO то са 
1588 LET di =di +2 
ET di =di -4 

даља GO те бё 


15590 PRINT AT 1, 


зага IF ag="tert* 


жабе, БЗ: DRAW ә, 
=, 24: DRAN е,ізе 


next? "iat. ВЕЕ 


THEN са TO 1200 
THEN со та аза 


t" THEN GO To 14 
ге“ THEN GO TO 
ass" THEN GO TG 

THEN GO то 162 
THEN GO TO ата 


со TO лева 
LET u=u+f2 


GO TO лева 


LET ч=ч+ а 
ТЕ 4зъз THEN L 


со TO лева 
LET ч-ч+ге 
ІР di tO THEN L 


Hc Ug GIS FHEN L 


ізхФфісіксіз ТО а 


3 4545}: GO TO лева 


зае PRINT HI а, 


35; "Time So Far" 


Bis diss" в УІ р” шалса Со m 

о TO заза 

i788 LET Ғр=25- (015) вт 

17180 CLS : FOR РАРр ТО Рр-17 STE 

P -1: FOR g=1 TO 25: LET g#=CHRS 
144: ТЕ rz&ig,f)-"1" THEN LET 3% 
1728 IF x-g AND u-f THEN PRINT I 
NK а; FLASH 1;CHRS 145:: GO та з 
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паа РЕТЫК че. 

дан NEXT ug: PRINT : NEXT F 
ДРЫ PRINT “rot? src ai the figür 
5 Pacing Se ees Це А SL на cel ssepe 


1569 GO FO зиме 


тава PRINT "cCorridorz'" "command 
= are:"*""on"^"reverse"^"iert"^" 
right"'"comBPass"""time"'"and het 
Во? 

7813 PRINT “Уонг във із to exit 
the caves in the shortest possib 
је tise.” 


BOGGS PRINT “Рівзеев Шајк“: RANDOM 
‘TSE : DIM EES SSS: DIM чо 51 
aaie FOR F=i TO 25 STEP S: FOR g 
=1 ТО 25 STEP Е: PORE 235000 +RND = 
295 ANDRESS 

вага LET ах=1: IF RND:.5 THEN LE 


заза LET au-1: IF ax-5 THEN LET 
зеле LET bx-1. IF RND<.5 THEN LE 


ваза LET bu-i: IF bx-5 THEN LET 

ч=- 

зава GO SUB S2O@O+INT (вмрхла) +50 
вата FOR j-8 TO 4: FOR к-е TO 4: 


KET SRIF око ова тачтах Кабы 

+6xX а МЕХР к- NENT | 

ваве NEXT а: NEXT f: GO SUB saga 
=1 TO 5: LET г9(18+4.1 

а ТО зо) =: NEXT J: GO TO ва 


араб FOR h-i TO 5: LET utihi-"11 
pir NEXF Б 
2212 LET yusisi="G@aeeaa": RETURN 


вага FOR h=1 TO 5: LET ut$ih:-"11 
пара RES се 


аге её LET ужізі-сізебе”-: RETURN 
ззав LET ы&®{1}57°131117. LET чете 
у кч k 1З 

p EV псе) =" 11611: LET ysis 
+ - пета: 

вага LET цегзаъс"еввет”: RETURN 
азам LET u$i12)-"11111": LET esta 
зе 12 

S366 LET uSid)-"11€011": LET 965 
рач таз 


3-D MAZE 


аба POKE ас 
S880 RETURN 


NEXT F 


š (PEEK 


RETURN 
LET сф іе 
LET yig 
RETURN 
LET ysis 
LET чета 
RETURN 


LET чете 
КЕТ yid 
RETURN 
LET џез 
LET usta 
RETURN 
LET uis 
LET ysis 
RETURN 
LET ugi? 
RETURN 


236872 


íx-—u 


ti} EH БЕН ai} ЕМ а 


Резе тол: 
PORE USR 
а: NEXT F 


B370 LET ysis} ="@aeii": 

заве LET u$£ti11-2"3110211": 
J шыф{1} 

Бала LET G4$ {2} =" IBGE": 
Fou s (а У 

ваза LET y$(3) ="вазеа": 

8458 LET g$t1i-"11011". 

3 кал 

ваба LET usi2)="1e1e8i": 
}="@e10e0" 

вата LET ug td) -"18111"- 
aspe LET u$&i11-"11611" 
=a bea 

B51@ LET g&it3)-"183288"7: 
у =" mama 

8528 LET ugisi-"11011": 

ава LET u&t11-"119804": 
12711010" 

вака LET uti31-"180021". 
i =" TAGG" 

8578 LET ys iS ="11811": 

зева LET чагаъс"алеза": 

3 = $ 23 

заза LET usi2)-"10011": 
r = 128180" 

S620 LET y$idi =" 10001": 

S650 LET uti1)-"211801". 
)z"31a11i8a0" 

aeea LET УФ (Е) <"1111“: 

ввев LET x-13: LET ч-із 

ваза LET di-a 

ваза LET x$-"Northuest SouthEast 

ваза DEF FN a0) -INT 
ESE PEEK 23673+65838 +РЕЕК 23674 
РЕНЕА = 

8848 DEF FN bix,u}=(x+u+A8S 

3858 DEF FN 

вага RESTORE 21808: FOR 
FOR ае TO 7: READ =: 

CHRS (144+7149,a: NEXT 

вата FOR P-2367?4 To 23672 


STEP - 


її а 
Fe, Š, 3, 


295,129,6,9,8,8,229,15 


56.56,16,124,166,186,4 


Boat Race 


10 A$ holds the colours of the beatae 


To use 
In this Spectrum program you have to bet on a race between - 
four boats. You start with £100 and you need £500 to win. You. 
may bet any amount on each race. : 


Boat race 


You bet £15 ап bisck 


Notes on listing 


20 Define ‘boat graphic’ from data. 

160-650 The actual race. $ 
Lines 110—130 draw the course which the boats ы апа ins 
finishing: line. 

200 This gives the engine noise. s 

210 For each of the four boats, print boat fat correct position. | 
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220-230 X(f) contains the boats position, and this is increased 
by arandom amount. If the race has been won, goto 500. 

240 250 Repeat for all four boats and then repeat until winner 
found. 

500—530 Race over, winner announced, short victory tune. 


600-650 If you chose the winner goto 700. Otherwise deduct. 


your bet from your money, check if you have lost, and start 
new race procedure. 

700 You chose the winner, and get three times your original 
stake money as winnings. 

800 Print your current cash and goto ‘start new race’. 

900-940 You win, short tune played, game ends. 

1000 You start with £100. 

1020-1050 List alternative boats on which bets can be placed. 

1100-1130 Input choice of boat and amount of bet, make sure 
you have the money and start the race. 

8000-8010 Back and front halves of boat, respectively. 


Listing 
1 РЕН BOATRACE 
= REH Copyright 1882 
B.RPatert Breet 
за LET ah="biackhbivue red таз 
С pm FOR f=: 2: POR а-а TO 7: 
READ a. EE USR CHRE (1434F)149 
„а: МЕж NEST f 
зе RANDOMIZE 
SS INK а: PRINT “Seat race" 
246 со та зада 
448 FOR fei TO © 
320 PLOT 10, Зза: DRAN 240.0 N 
EET 
іле рыны Ә,-іше 
таа PRINT “Boat race” 
за DIM x td} 
тва PRINT AT 28,1; "Yau bet Е, E 
ет; " on “;astchsS-4 TO срам) 
zoo FOR Е=1 TO 4 BEEP 05,2 
SEEP OAS, -5 
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вар INK їт-15: PRINT BT Ғаб,х СР 
11". бубна i44; CONE 145 

ёва LET x tf) =x (Fi можа. 8 

230 IF х (г1228 THEN СО ТО баз 
240 NEXT r ` 

258 GO то төз 


‘PINT AT Se. 4: ‘Race 
3 


эз Рі: 5+4 T 
і š = ne." 
Бай FOR а=1 TO 24: ВЕЕР .2,9-5: 
MEXT а 


noo! Cis 

Di, IF chef THEN GO TO Fee 
| 5280 PRINT “vou (іссе uour bet... 
"өзе LET cazsh-cazh-bet: ІР cash} 
а THEN GO то вее - | 
Баб [RINT “чац have no money te 
ft—uou Lose.” 

ква STOP : 

аа > PRINT "your bet has paid of 


"he 


PRINT “You win £“; Завет 
LET cash=ceash+S3ehet 
ЕЕ cashoSSe THEN GO To зав 


Гаў 
СО ка 
C a Gg += 


BOG PRINT “vou nou have £":;cash 
Bic GO TO заза : 

Зай PRINT “you have now amassed 
Е"; cash 

910 PRINT "and can afford to bu 
ч Your сып Speedboat.“ 

зай LET C#="S67676545432111i" Е 
gae FOR раі ТО 15. BEEP ЕЛГЕ 
CEU) NEXT F 

346 STOP 


заза LET cashcitüa 
1918 ТЫҚ а: PRINT "Uu 


a 
27582 PRINT “@hich boat do yaou Бе 


1838 FOR ші TO 4 
вае PRINT Roux ene te у 


25] 
1850 NEXT F 


а пате ELSES 


$ifx5-4 TO ў 


y: 


“BOAT RACE 


INPUT ch ` T быты с 

PRINT “how much do you bet? 

INPUT bet: IF bet»cash THEN 

betecash : : 

CLS : са та зае E 

рата 2,2.28.31,36,196,127,63 = 
за DATA 64 в. 224, 144,255) 
3854 jedes 


Sheepdog 


To use 
You control a sheepdog and muster a small flock of four sheep 
through a gate into the next field. Your aim is to do this in as 
short a time as possible. The sheepdog is moved using the 5, 
6, 7 and 8 keys. The sheep wander around at random, but if 
the sheepdog comes too near, they will run away. Once through 
. the gate to the right of the screen, a sheep will not come back. 
When you start, you may find it difficult to get even one 
sheep through the gate, but with a little practice you will 
improve. The way to get a really fast time is to keep the sheep 
in a flock and get all four to go through the gate together. If you 
split up the sheep and chase them through one by one, you will 
not get a very good score. 


eh зовем Ae) аты د۲ مدو ویره وہ‎ passa unqunanpaq TU з му н жя м леч MY ади ен 


| ata: 


-A clever sheepdog, keeping the sheep together. 
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"n 


БА И, 
Бала тты ааа 


e EDAD Babu) 
— E EE мили tet E 


The flock has split — what every sheepdog dreads. 


Notes on listing. 
This game is designed for expanding and a few parts make little 
sense in this shorter version, notably string array A$. 


10 Gosub set up user-defined graphics and variables. 

1000—2520 Main loop. 

Lines 1000—2020 are repeated once for each sheep. 

1010 1020 sy and sx are the у and x movements of a sheep. 
Initially, they are set according to whether the sheepdog is 
within three character spaces away. 

1030 Random factor to make sheep wander around in a typical 
sheep-like manner. 

1040-1050 Make sure sheep's move will not take it CE 
or over the fence. Note it is possible (if you are very lucky 
indeed) for a sheep to jump the fence, but in general they will 
only go through the gate. Note these lines also keep a sheep 
in the other field once it has passed through the gate. 

1060-1080 Change sheep's position co-ordinates by adding sx . 
and sy. PRINT space at sheep's old position and user- . 
defined sheep at new position. 
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1090 Check for game finished (all sheep in other field). If so, 
goto end of game. 

1500 Print sheepdog, facing left or right. Note dog usually 
faces right, as this is the way the sheep should be herded. 

2000-2010 Change x and y co-ords of dog according to key 
pressed. Note that as this happens inside the f loop, once for 
each sheep, the dog can run four times as fast as the sheep. 
This gives enough manoeuvrability for the dog to be able to 
keep the sheep in a flock, if you are skilled enough. 

2020 Repeat for all four sheep. 

2030 Increment go counter. | 

2500-2520 Print rough estimates of time taken. Every 20 goes, 
reDRAW fence as sheep often dent it. 
Repeat cycle until game finished. 

4000—4200 End of game. 

4010 finds exact time taken. 

4020 gives short ‘tune’. 

4100-4110 deals with the highscore. 

4120—4200 offers another game. 

8000-8520 used in each game. Array a holds the sheep’s 
co-ords, and di is the direction the dog is facing in: 0 = right, 
1 = left. 

8200-8210 sets up a user-defined function to calculate time, 
and POKEs the internal clock to zero. 

8500-8510 Set colours and draw fence. Fence routine often 
used (every twenty goes) to keep fence intact. 

9000—9010 User-defined sheep and sheepdog. 


Listing 


28 GO SUS Bese 


ава (PDI Рен TG TO Shr 

2610 LET su-sSGM fat 
та iF F13 -х2 са 

1828 LET sx-256GN tat 

p фа (ўі -ЧУ ха AND A 

< 


мощ 
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‘SHEEPDOG 


заза LET sx =SXx¥ +INT ВЫРАЗ „2 –—. =: 
LET Si =5 + INF {RNB $33 ;2-.5 


абза LET Бхазх віз іРвтаз (23 ка-ізіў 
+4} +393 зо (ағ 222 GHD 2F +1} х 
а? RANE га ука OR SifFiraibSiiztiat? 
+3} 225 RND a fF +23 (27? ко 

2852 LET базу із {EF isi #2 fa ЕРУ > 
зз» == 

3853 LET af Fi sa ifiesy: LET зіў ti 
J == :f£ +332 +Z X 

зата PRINT ST зірРа-зы,аіЎР +33 сок; 
зада PRINT INK USL аф #3: FET SEF; 
аа ТЕ ORRE ЗАБ Š 

заза IF 3t273>25 RANE з 4 5295 BND 

215325225 AND з [83325 THEN БО TO à 
ааа 

вео PRINT AT u-Uul.x-x1;" “j INK 


Ф; вт U.X; снвф IFS  ~ 


suem ЕЕ EXI-UINKHEYS$—' B") — i INKEY Ф 
3 RIiX2i—ix»2233: LET Aã =i ENKE 


Y&- UBUI-IINKEYS&-UTU) + 19 < [23 — (~ >3 а 


= 


о 

= х=х+хі: LET =U +: 
сг NEXT f oe 
гата LET gesgo#i 


соса n а INK е; нг е,2?; INF (ае 
#3. 5 

2518 IF чреза=амр iso.20: THEN С 
із SUS 222 

2528 во та i806 


4600 INK е: PRINT HT 18,23; “You h 


ave penned ALU“; AT 313, зізіһе She 
em. 

Bun LET ЕМ сіз: PRINT НЕ 33. 
г; "хан took "зае" Seconds." 


адга INK а FOR P-—25 Fo Sh: BEE 
р .1.f: BEES .1,55-f: NEAT f 


4498 IF ваз=с THEN LET hs-st: PH 


INT ат 15,1;"Uell done — а пеш г 
cordi" 

4110 PRINT HT 17.1; “Highscore = 

к= 


8240 Васы HT 28,3; “Another заве 
5 uon" 
2338 IF INKEYS=“g" THEN GO TO 42 


4448 IF XiNHEY£-"n" THEN PAPER 7: 
BORDER т: CLS : STOF 
зава са TG 435 
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ава GO SUS SiGe: со то лева 


588283 FOR #=8а TO 2: FOR g-e6 TO 7: 
READ a: БОКЕ озв Дива Заа +:т +S 
„зе: MENT а: NENT 
вала LET ње= ва 


залив DIM aiSi: DI 235153: FOR f= 
1 тїз 7 STEP 2: Бет sift =I: LE 
Т aifi? == 

рада а ="G": LEF a$tftil- 


i KEE gees LET аго 


S200 DEF FN аа, п: = {gin + ве (m-n 

Dees isis ЈА ho ЕЗ ER 293672 +256 

*PEEH 2367 3 + ББЕЗЕБ+РЕЕ 3573: -ва 

БЕР FN zti SEN З СЕК? Pu SEN Е 

S210 роке есв?е,„ в: PONE 25ers, 
PORE 258674. 


SS8S PAPER 4: BORDER =: ғыз 


за+ 3+ (F33: #=. 2: "PRA а,та: BRA 
ы тык 0,52: DRAW D.71: NEXT 


заба гата E,2, 13. 125,134,133, 12 
сз ‚з в, ва 2? 192 се „ет а, БЕ 
заза DATA &.7,255,252,252,88,65, 
4% б 
Е #8 == 
ij 
m4 
i 
fl 
54 
iti 
at 
ІН = 
you have penned зіі. E 
the sheep. = 
eal - 
You took 21 Seconds. || 
меті done — a пеш гагара !і 
Highscore = 91 


ЕРЕ 


ISSN 
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Sheepdog Champion 


When you have become proficient at Sheepdog you can try this 
more advanced version. 


To use 


The aim is the same as for Sheepdog, but this time there is more 
skill needed. You may have wondered why the sheep are yellow 
rather than white. The answer is that they are dirty. You will 
have to drive the sheep into the left end of the sheep-dip at the 
top left of the screen. They will come out clean and white. For 
each sheep that you fail to dip, you add 25 seconds to your end 
score. 

There are bushes dotted around the right-hand side of the 
field, and the sheep may stop at these to graze on the leaves. 
Neither sheep nor sheepdog can actually go into a bush, 
although the sheep can jump over them. Now that you are so 


expert, you can naturally handle six sheep rather than the 
original four. 


| pm 
| + i 
и 
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Notes on listing 

IMPORTANT This 1s not a complete listing. Type it in exactly 
as shown, then MERGE with Sheepdog. The complete Sheep- 
dog Champion can then be SAVEd normally. Note that this 
listing must be MERGEd on top of Sheepdog, not the other way 
round (i.e., type this in, SAVE it, LOAD Sheepdog, and 

. MERGE this listing). i 


1000 deals with sheep-dip. Sheep’s colour changed, bleat 
noise, move sheep one onwards and go to ‘change sheep’s 
co-ords’. 

1030-2000 Some minor changes and moving lines around. 
1090 checks if six sheep rather than four are through the gate. 

2010 Check if a tree is in the character-square where a sheep 
would otherwise be printed. Trees are BRIGHT so have 
large ATTRibutes. 

2500 The rough ‘time taken’ has to be altered. 

4030-4060 Check how many sheep have been through sheep- 
dip. Make your score worse by 25 for each un-dipped dirty 
sheep. 

7000—7050 Rules have been added. These can be expanded as 
desired. ; 

8000 There is one extra graphic to be denned 

8100 Arrays for six sheep instead-of four. ` 

8500 PRINT 10 bushes at random in right hand part of field. 
Note that they are BRIGHT for easy detection by ATTR. 

8520 PRINT sheep-dip. 

9020 DATA for user-defined bush. . 


Listing( LOAD SHEEPDOG and MERGE this listing) 
4 REM Sheepdog Champian 


ле INE а: PRAPER Б: BORDER +: C 
5 : со 


LS SUB това 

заза FOR к= ТО 33 STEP 2: ТЕ га 
{FJ =5 OF BiFi-7: БЫР af€F +2335 BN 
Ë в ъс ле THEN LET zx-i: LET a 
тісі: LEY sus iE Е LE 
КоВ ај =" РОН а=а TO 5: BEE 
Кы tee Tech Ness МЕХ: g са то та 
= 
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SHEEPDOG 
заза LEY высах рыт (RNO 23} r2. 5. 
LET SusSuUdGINY IRNDxOIs;c—.G- IF 
Ха ТЕ =& GR ВЕРА СЛЕ AND в ЕЕ I4 
GHD | (fF 4433238 THEN LET zX-HB5 5 
Занев LET sussudtiaifi<2isi-taii3 > 
IG} x+ a if 44325 RANE aff-1)«9 SNE 
aif} => 
тава ТЕ ATIR (aifivsy.siftiitsx: 
=@S THEN LET axs: LEY str 
ЗӘРЕ LET sifi 
3 =š ç £ +233 +E: 
Feit сом 7 
LESS SENT INK 
„а ЗЕЗАА СНЕ 
SUG Биз: LET 
заза i^ a32} > 2 
ВЕБЕ >25 ЭР a НЕ (i6 
RND а (ЕЗ 325 THEN GO TO зева 
пепо LET xi=t ENR SY ВА ДЗІ СТЕНКЕ 
SVS Ех 434) ех 233 > LEF ya={2NKE 
узо аз -(ЪМКЕУ ВАР 3 + (u < -fy 2A 
3: LET gi = INKEY$="5''3 
ӘЗІЗ ТЕ ЫҒҮН ГАЗА кана =88 THEN 
ШЕП шеше Пето алш ш 
ZERE LET х=х+х1: LET u-ucui 
сезе NEXT P: LET постот x 
cum PRINT ың Ш >: @.27; INT fuo 
zii 
вазе IF ge -i8=INF (geri: THEN С 
= SUS веза : 
8852 LET 54-60: FOR 6-3 TUO 5: LET 
Нева ЗАЈАК. в: Ехо): НЕЈЗЕ f 
заза PRINT AT i15,2;6—5d;" Sheep 
Bere ciesnegd" 
8858 PRINT AY 27,2: "Reni ty X 
Sdzxeu 
4858 LET посоки === < 


аы 8,4; "Тор stare = 
3.3 = C = - стр 

= сера HT 21.3; "Hnother заве 
FESS BRINT OU Sh £p деб AY оа,“ 
кагу! == ETE controi а" 


аў 
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таза PRINT “sheerdsg Using keys 
5.56.7 эра Б. Your sim is to herd 
the Б Sheepinta the field an th 
е газе.“ 
теве PRINT C However, tho ние 
еге dart апа shoutd first ве 
griwen " 
газа PRINT “threugh the railed 5 
heepdibp. EF you Fail to dip th 
Sheep uou Bibi be penatised." 
тада PRINT “ The Bim is ta cat № 
he Fiack dipped and penned in 
аз ёрагі s time аз possibig." 
CRGO БНЕМР 5 press ENTER те > 
агт... INPUT = = " 
ағына ҒӨБ р ып ТЕ 3. FOR g=8 TO T. 
БЕРБЕ а. PERE ве СНЕ {зда +F} + 
га: MENT g: NEXT Е 
GSS HIN 2125: гот ==: гъ: Fer 
Foi TO 22 STEP 2. LET Sif} -В+Е: 
LET за == 
5122 LET e2=8 


0 
"Dm 
н 


Жі 
n 
7) 
мо 
PL 
qm 


4 
sm 
"| 
D 
E 
Y 
D 
ж 
ІТ 
p 
қ) 
W 
” 
Со 


a 


сове PAPER 4: BORDER 6: cL TED 
R РЕЗ TO if: LET rz—INT RRND ESE? 
: LEY рҥєшїбт г IBNDIS:R. PEINT I 
ық ©; BRIGHT 2; ВТ rs.pri;CHRs за? 
: NEST f і 

вазе PRINT PAPER Б; INK л ет + в 
Sonia et ас сат ж,б: En 
BP Б.Б: "ВИЕ" BETUEN 


зава DATS S, 16,84,58, 145,84,55, 1 


m 
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Knight Fight 


\ 


То изе : 
This game involves a fight between two knights. 

You control a white knight, and the computer has a black 
knight. At the start, you have to select armour and weapons for 
your knight. You have 100 gold coins to spend, which means 
you cannot have the heaviest armour and lance and the best 
weapons too. 

A mace is the strongest attacking weapon, a sword the 
weakest. However, a sword is useful in defence as well as 
attack, whereas an axe or mace is not. 

Once you have chosen your weapons, the enemy’s choice is 
announced. The fight then begins. 

At first, the knights joust on horseback until one knight is 

knocked off his horse. Apart from your choice of lance and 
armour, you have no control over the jousting. Once one knight 
is unhorsed, the other will dismount and the fight continues on 
foot. 


DEUM 


| | 


| ü hnn Е 


ж ж 


БЕ 


You attack the opponent knight by moving near to him using 
the keys 5 and 8 to move. You ‘hit’ by pressing one of the keys 
| 2, 3 or 4 — the number determining the strength of hit. Each 
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time you hit, your strength, shown at the bottom left of the 
screen, goes down by that number. If your strength reaches 
zero, you die. By moving away from the enemy, you can 
gradually recover your strength up to your maximum. 


ic ппги 


TUL HELP 


+ 


ni 


e 


із 


А successful hit оп the enemy lowers his strength Бу one perma- 
nently. The enemy strikes you in exactly the same way. This 
means that fighting consists of rushing up to your opponent, 
hitting at him a few times, then retiring to recover from your 
exhaustion. It is essential that you keep an eye on your own 
strength to know when to retreat. Gradually your maximum 
strength will be depleted (and so, hopefully, will your 
opponent’s) until one or the other, with a strength of three or 
less, cannot strike properly. Death for the weaker usually 
follows quickly. 


Notes on listing 

This is rather a long game which occupies nearly all of the basic 
16K Spectrum. Due to the large numbers of user-defined 
graphics, the use of CHR$ 144, etc. has been dropped, and 
graphics characters are used in the listings. All capital letters 
inside quotes should be graphic letters, i.e., you must go into 
graphics mode, then press the letter. If you forget one or two, 


100 KNIGHT FIGHT 


you die. a 


you may see knights charging around on the backs of ABC 
creatures. If this occurs, BREAK the program, find the letter, 
andreplace it with a graphic letter. 


10 Gosub start routine, buy weapons and set up user-defined 
graphics. 

100—110 Basic ‘charge on horseback’ routine. Graphics ABC 
and LKJ are the horses, DEF/GHI and ONM/RQP are 
alternate sets of legs to give a galloping effect. In lines 100 

- and 130, the underline character is used (symbol shift 0) as 
the point of a lance, US and TU are the rest of the lance and 
the knight. : 

160 Gives a simulation of the sound of horses’ hooves, which 
sounds very good when amplified. 

170 Deals with a possible crash between the two kaha. 

180 Checks if the knights are about to go offscreen. 

200-910 Copes with what happens when the knights meet on 
horseback. 

200-240 is the actual hit, strengths of opponents being 
calculated to take in armour, lance-type and shields. 

500-540 shows the left knight falling off. 

600—840 shows the right knight falling off. 
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800—840 checks if a knight has fallen off at Һе end ofa run. 
900-910 deals with turning at the end of a run when neither 
knight is knocked off his horse. 

1000—1040 Turns horses round at end of run when one man is 
down; and dismounts other knight. 

1100-1430 Foot-fighting loop. 

1100 PRINT two knights with correct weapons. 

1120 moves your knight. 

1130 moves opponent’s knight, including automatic retreat 
when strength below 3. 

1200-1260 Your knight hits opponent if in range. 

Checks if you die from exhaustion or enemy dies from 
wounds. 

1300-1320 Enemy hits you. Your hits and your opponent’s 
depend for their success on the strength of hit (1-4), the 
weapon’s attack value (1—3), its defence value if it is a sword, 
armour and shields, if any, together with a random attack 
value. When all these are added, the hit is judged successful 
or unsuccessful. 

1330-1340 If your current strength is larger than your 
maximum strength, then let current strength = maximum 
strength. 

1400-1430 If knights are a distance apart, then they can 
gradually recover to their current maximum strength. 

4000-4010 Youdie. 

4500-4510 Enemy dies. 

7000-7280 Start of game. You choose your weapons and 
armour, from list giving prices. Note improper entries 
ignored. е 

7320-7460 Enemy chooses weapons. Either enemy chooses to 
have a strong attack or a strong defence. 

8000-8500 DRAW castle in background and start fight. 

9000-9130 DATA for user-defined graphics used for knights, 
horses and weapons. 
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АА FIELE Š 
[UUUI : š EXP н FEPEPIT 
Ion | ЕЕ cues 2. i 
ГО Нлля 0 Of G Һалл û | 
i і - 
= ч г. 
== 
Listing 
1 REM Knight Fight 
В РЕН © S.Robert Speel 1282 


10 PAPER а: BORDER 4: CLS : GO 
SUB 7908 


зае INK ес: IF eh=2 THEN PRINT 
AF рана c1 DS 

118 PRINT: ат ч,ж; RBC ": IF хув 
ан іх „=; THER PRIN: AF uti.x:” 
5 ДА 

ізе IF XERE: INT іхга? THEN PRIN 
T AT yt. x; GHI " 

аза INK ас: IF ah-i THEN PRINT 
AT u-1i1,22-x;" ти" 

448 PRINT AT u.285-x:" ыкы“: IF 
X/P2-INT (2223 THEN PRINT HT uti. 
ев-х;" сын” 

158 IF х/2<>ІМТ (x72) THEN PRIN 
т AT ч+з.2а-х;” ВОР” $ 

159 LET х=х-1: BEEF 293,18: PH 
USE 2: ВЕЕР .80883,5: PAUSE 3: BEE 
р .@85.8: PAUSE 5 

р IF х-ів AND ec=F THEN GO TO 

1580 IF x:2 THEN GO Ta see 

јаз GO TO 1068 


аве LET sa=te+INT. iIRNDE6:-ar-ía 
г=2} -INT семгркв»: LET ессіз тнг 
(RND x4) er - ter =2) -INT (ЕМО #4. 
2138 ТЕ заста AND edi=8 THEN СО 
TQ дей 

эре IF заза RND edo THEN GO TO 
SOG тез tsa ed? 

2389 IF ваа THEN ВП та === 

248 GO то вее А 
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пара PRINT AT u-i.x-4;" Тамо: BE 
21.50: ВЕЕР .1,.38 

ае PRINT АТ u—-i.lm-4AlU =: BEEF 
Е BEES ла 

заа RESTORE 2188: FOR f-8 TO 1: 
FOR а-в TO >: ВЕНГР а: POKE USR 
CHR 163+2,а: NEXT а: PRINT AT ч 
+1, х-Във; СНА ESS; : NEXT f 

өсе PRINT U “ат GES "б 
жз E = ы А == — | БЫ за 

заа LET x-x-—1: LET вухзх а: LET 
ышы-і: LET ah-& Е ве=ев- ЕМ: ў 

= 


BNDs6i-i: LET звазв-в: GO TO заб 
ква PRINT AT Uu-1.x; 5": ВЕЕР 
„1.28: ВЕЕР .1.5352 

ЕТЕ PRINT HL т. з“. B 


SER Si SE: BEEF Т y За 

ёге INK >: RESTORE 9180: FOR f= 
(&) "rim Se BES Sete HE Es T RERO э TEO 
КЕ USR СНЕЖ 162+9,з: NEXT а: PRI 


NT AT ytl, xX t¢4F50HRS 162.: NEXT 
E 

есе PRINT BT Util. A 
зет u.xt3; 'uBP u,BS-x; с 


“Бабе CET x-x- За LET н ЛЕ ВЕТ 
u-u-i: LET ев-?: LET am-am—IiNI i 
вмрхав: LET sassa-5: GO то зае 


зва IF еһ=ї AND ah=1 THEN се то 

518 LET x-20: LET ex=1@: LET y= 
* + 

8280 IF eh=1 THEN LET x=5 

взе IF ah=1 THEN LET ex-25 

ase GO TO заве 


= PRINT ЕКЕ 8-1,х;” "ЯР y- 
— i б 
Әле LET кере: LET ч- 32: LET dc- 
Ses © LET ас=есс- КЕТ ECG: GO TG 
ien 
ове PRINT AT u-i.6;" “;TAB 32; “ 
"> INK SIHT u.8. LEGO"; INK әрт 
вв га;" REC": ық ТЕТ ча „а: Q 
ын"; INK Сет ата ев;" GRI 
зала FOR PS та 2: PRINT HT t-f., 
(mic = ат ШЕ е?;“ “> МЕХР 


F 

дәге RESTORE S868: FOR ісі РО 2: 
FOR g-ü TO 7: READ а: PORE USR 
CHRS ¿(345+F1Y+G, з: NEXT а: NENT Р 


104 KNIGHT FIGHT 
заза RESTORE oin: FOR рэз TO 12 
> FOR а-а та т. РЕЗО а: PORE USR 
Паў TIJ 40,3: NEXT S: NEXT 
1848 PRINT HT via. S; 7 


1108 PRINT INK ВАТ y.exivei"A 7 
;BT uri.exi? E С) INK, FIAT 9,х-і1 


EE вера Вт urilx-i: Е 
заза IF es 3x42 THEN ÉRINT AY Че 
n CFs cS 


зара LET x= | азы ала тата ET 
ЕВ: іх аза: LET мек Ем 
ек-2 

2438 LET ехљ=ех +52 
RND с „Б FEX 5} ТЕН 
зіла +3 SND ex «обр»: 
EN 20 то зара 

32808 LET S8=INKEYS: IF в#4 "1" OR 
S28: 4” THEN ЕТ за#- в” 

A230 LET grz-INT (HFRENDESI-1: ЖЕ se 
«ев THEN LET ezrz-seée-i 

авва IF se +3 THEN LET ват 

412306 IF ажа “р THEN СО те 2388 
i248 LET z2-58-UHML 28: EF sari Т 
HEN GO TO 4268 

заба ТЕ Uhl att at (МОЕ тете 

s¢er-ittik#ke=23 THEN LET em-em-ti 
4268 IF г=< 21 THEN СО ТЗ асга 


ЗЗВЕ ВЕЕР „23,45: LET зессе-ет 
13108 IF вазе віч”  (ORND EG) UAL аш 
+sh+ar+tswa=31y THEN LET am-am-i 
1320 IF am<i THEN GO та 4888 
132380 IF saam THEN LET љагав 
i348 IF sevem THEN LET se-eB 


лаве PRINT ет 28. 2; == > ет ге, 
гв; Бе; о: IF ex x із SHEN ER то 
Lise 


3410 FOR г-1 TO 2: IF sacam THEN 
LET Ба=ѕа+і: NEXT f 

јаве ТЕ seiem THEN LET se=se+2 
заза со TO 1182 8 


2585. PRINT е. М. ВЕ U.N: 
š “> ІМК BU Че 
аз Е + 

зеле PRINT AT 28:9; "Ран сів.”: = 

TOP 


авва PRINT INK тіпт u, 
gom “IAT uri. La 
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45182 PRINT HI 26,20; не dies.” 
STOP 


тава PRINT “Knight Might: 


7250 RANDOMIZE : LET ah-l: LET е 
hzl: LET x-265: LET ч-іФ 

табе LET cash=188: LET sh=@: LET 
ась: LET ес-? 

тава PRINT ““ (44 Chain-Mait cost 

= 46 coins, “Ез pilate-mail Сй, 


тізе PRINT “чо Wat Revere is Lances с 
Bei seis а. m= z UR tances 22" 7 " 
(331 пеачи lances зе." 

Ti240 PRINT “(ір Seards cast га" 
^" (235 AXES 28087: + 63») maces пп. 
Shields ги." 

T1380 FOR E=1 TO 21. FOR а-ә TO > 
> ВЕБ а: БОКЕ МӘН СЫНЫ 0if-1433)- 


а.а: NEXT =: NEXT £ 


ET ; 
me" x`" OF зат “аш” THEN GU FO сена 
72410 BEEP .5,0: LET ага af: L 
ET cash =cash -S36-1208er 
7220 PRINT AT 21,8: "ве? Lance d 
о tou Бич“ ': БЕТ 3 = INKEY S: IF 
a$Sc7z" OR |a83°3" THEN GG то 7220 
F230 ВЕЕР .5.8: LET ¿a= аш: L. 
ET cash=caesh-isSsia 
T2440 PRINT HT 21,6; “What pete ы 


eapon do чан bug?" БЕШЕ =INKENY 
$: IF ags<"a" OR ass m ы GO T 
= тааа 


7250 BEEP .5,00. LET мачни аф: L. 
ET W&=CHRS ізБат-ыар: IF cash-20-— 
IRs ita =3} в THEN GO ТО газай 
7268 LET cash=cash-1i18-i18s ta a=: 
IF санка THEN GO TO 73966 
72760 PRINT AT 21,8; “бо you buy a 
Shietd? (uni ": LET aS=INKEY + 
3 EE at ЗИ AND asli y pu THEN GO 


7280 ВЕЕР .5,Ә: LET tash-cash-28 
£ila$-"u"): LET sh=C€ag="y"? 


TOSS) LET 533225: LEY se=28: LET a 
#=25: LET ењ==2 

?зва CLS : PRINT ""'"your opponen 
% chooses: —™* ^ 

тата GO FG таевъ ЕМР ава)» sa 
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тава PRINT "Defence: PHMedium armo 
ut.7^7^"Ritack: Heavy tance and a 
mace." 

2418 LET er=2: LET ез-?2: LET ше- 
323. LET В LET UG T1 En TO s 
пее 


таза PRIN! "Бе ге 
г апа shietd"^"" 
ance and suord.' 

7468 LET 2г=2: LET воза: LET те= 
1: LET te-2: LET v$="6" 


: Heavy armou 
@ck: Medium L 


80920 PRINT `“ "¿Press ENTER to st 
ЭЛИ = (le ELS 

8012 БЕСОТ 6,129: ринг 259.0: рс 
т @.228- Se БЕ са Ge Stn веза 

авге DRAW =,—==: GG воз пова: DR 
HU 0,30: со SUB 8568 

ваза DRAN е.-1е: GO SUS 5500: DR 
ян ала: со SUB 8582 

зеза DRAN €,-39: GO SUB S508: DH 
ры 0,20: GO SUS ввей: BRAY з, -за 
вазе PLOT 115,120: DRA 96,10: DR 
AW 28,0.-PI: DRAW а, -1е 

Sao FOR ғ-іб TO 238 STEP 78: PL 
от ғ,ізә: DHHU 5,80: DRAN 8,7: DH 
nu -5,8,PI: DRAW @,-F: NEXT F: С 


ssəə FOR ісі TO 3: DRAN 8,5: DRA 
ы 5,0: DRAW @,—5: RAW 5.0. NEXT 

F: DRAN @,5: БЕНИ 5.8: DRAN @,- 
е: RETURN 


“й 


SOOO БАРЫ 1.190,35,23.2:,53,51,33 
;,935,51.,2921,2552,255,255,255,255, 
BE 126, 224 , 240, 248, 24d, 243,22 
зета бата $,6,5,.6,4,3,.8,8,255.22 
7,126 ,0,.6,0,0,2,192,262,112,56,5 
з 2=e 

сага рата 2.1,-8,13:3,2,86,8,254,24 
sm. 1832.135. .=.2=.28,==4,. 192,64, 12G 
.0,0,m,9 

Sese DATA 1256,60, наіў, 232, Зар, 22a 
GU04,132,0505,355,253,255,2505,S255, 
255 255 

aasa PATA &.1,7,15,51,47,287.7,1 
28,128.,0,2250,192,54,95,.,0.127/.321. 
3,1,125,54,064,0,7,23,2,1,0,0,0,ü0 
2050 DATA 192,95,156,15,52,192,0, 
@,255,399,1,0,80,0,8,08,5,.3,18,26, 


16,32,6¢,36 


- KNIGHT FIGHT | 


заба DATA 128, 248, 132, 56.40, рав, 
214,116., 38, 228 28, 55. эа. ааа, 187,4 ` 
в,е:в.е;е.е „255 Е 


` 8100 DATA в,8,32,63,8, 2712120.ө, =. 
,4,9,251,955,2438.,8,24 | 


16,24, 68,2271 


з,2,%, 32,808,192, Сы 
„16, АВ: TC 24,58,24 


Space Raider 


To play 

In this Spectrum game you control a small spaceship using the 
5, 6, 7 and 8 keys. You are under continuous attack from enemy 
spaceships which, true to the galactic code of honour, attack 
one at a time. 

Your objective is to get as high a score as you can before 
getting destroyed. 

You fire by pressing the space key. Your range of fire 
includes the 4 character squares directly in front of your ship. 
Enemy ships destroy you by landing on top of your ship. There 
are three types of enemy, shown below. 


Enemy Gtobeship 
за Points 


Ftickership 
әй Points 


S 
SERES 
S 


Befrtectorship 


25 Points 


де 1 
| FRE 
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The globeships are the easiest to КШ. These are bright green - 
and are worth 10 points each. They sometimes simply abandon 
ship, leaving an empty, unmoving hulk — you don’t get points 
for destroying the hulk. | 

The flickerships are much more difficult to destroy, and are 
worth 20 points each. They constantly change colour, and may 
be dark and difficult to see, ог even temporarily invisible! 

The reflectorships are worst of all. To confuse its prey, a 
reflectorship can produce an image of itself attacking from the 
opposite direction. You are thus confused by two ships, one 
real and one fake. Reflectorships are white, and worth 25 points 
each. 


4 
в 
n 


/ 
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You may initially find it difficult to score at all and you can 
increase your chances at first by just fighting the green globe- 
ships. You do this by changing line 330, which chooses one of 
the three types of enemy. Just change (RND *3)to (RND x1). 
When you have gained experience in manoeuvring and 
accurate firing, go back to (RND # 3). 
A highscore feature is included. 


Notes on listing 
10 rsis the current highscore. 
20-30 The setting is a black area of space dotted with stars. 
50-60 пт is set to 1 if there is ап enemy on screen. 
ax gives the ship direction, sc is the score, q and r are the 
co-ords of the enemy ship. 


_ 100 This gives the user-defined characters for your spaceship 


pointing in four directions, a missile and an explosion. 

110 xand y are co-ords of your ship. 

200 Print your ship pointing in right direction. 

210 Ifenemy onscreen goto correct enemy routine. 

220 If no enemy, 10 per cent chance one will appear, otherwise 
goto your move. 

300—350 Select enemy and put him at edge of screen at 
random. sca is the score for killing that enemy, and fgt the 
line number of the enemy move and attack routine. 

360 GOSUB enemy move and attack routine. 

400—470 You press button. If you move, goto 500, if you fire 
then print missile, make firing sound, move missile and see 
if enemy hit. If he is, goto 2000. Otherwise go back to 210 
and repeat loop. 

500 You move. ХІ and Y1 give direction of movement. Check 
if enemy on top of new position, and destroys you at line 
1000. Set ax to direction of spaceship. 

600 Print red spaceship at new position and redo main loop. 

1000 Youare destroyed. Warning beep given. 

1010-1080 Score given, highscore shown and new game 
offered. Note that if refused, ink, paper and border are reset 
to normal colours. 

2000 Enemy killed. Print exploding enemy ship, give TU 
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triumphant trill, and increment score. Set nm to 0 (no enemy 
on screen) and enemy co-ords at 0. 

3000-3050 Globeship. 3010 gives the move for all ships. À 
function could have been defined to do this but was found 
to be slower. Random factor in movement gives unpredict- 
able jumping of enemy ship and makes prediction of enemy’s 
next position difficult. 

3020 Draw green globeship. 
3030 If ship gets you, goto 1000. 
3040 5 per cent chance they abandon ship, leaving hulk. 

3100—3140 Flickership. 3120 gives random colour including 
black — invisible. 

3200-3250 Reflectorship. 

3220-30 Print white ship and image moving from opposite 
side of screen. If you are near a corner of the screen the image 
will move away from you, but if you are near the centre of 
the screen, you will be confused, often, for the vital seconds 
until the real ship attacks... 

8000-8080 DATA for user-defined graphics. 

8000-8030 Your ship, pointing in all four compass 
directions. 

8040 Missile. 

8050 Explosion. 

8060-8080 Enemy ships. These also contain points for 
destroying that ship and line number where that ship starts 
its attack routine. 


Listing 


4 REM Space Raider 
19 LET rs=@. RANDOMIZE | ` 
28 BRIGHT 1: PAPER В: BORDER С 


CLs 
39 FOR Ғ-і TO — PLOT RND#s25 
O,RNDx150. NEXT 


е eee : PRINT АТ @.8;,"sc0 
58 LET NM=@: LET ax-5. LET зс- 
59 LET g=8: LET г:а 


г 


E 
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SO FOR f=1 TO 6: FOR Дед то 
READ a: PORE USE a 
‚ат NEXT а: NE Нв азары +9 
113 LET ха: LET чета 


ай е: PRINT HT U,x;CHRS (11 


ns 
S46 FOR ісе TO 7: READ mbi IAD 
HSR СНЕЖ 2158+7,2: МЕ Е 
350 READ sta: НЕМІ» rot. 


356 GO SUB fat 


ааа LET ix=CODE INKEY $: IF зи 
алыр prize THEM со TO 506 | 


ado INK 6: FOR ісі TO в: LET zx 
=¥ +F #SGN bx: LET ZH =u + Езвем bu 
ада ТЕ хх сі OE zx»380 ПЕ zyii OR 
zu >20 THEN GO та ете 

аба PRINT BT =ч. ву: сива 148: RT 
„и и. ТЕ гета ANE ВЕР THEN 


зА іх: = 

An то 2000 
аба ВЕЕР .01,1: BEEP -@2.1@: МЕ 
хт f 


ата со TO 216 
зай LET ах=іх-48 


mio LET ie taxed) — (ax =S) + (X <2} = 
јата: БЕТ wis (ax=6} - Tax =F} + ÛY 4 
у-ва) KI 

әсе LET хмахахі: LEE ис HEE 

әле ТЕ SCREENS (g,X!-C Бф i595 T 
HEN GO TO i908 

вва INK а: PRINT ат u-ul,k-Ki: 
"ат ux; CHR гсъзечах? 

сли ап TD 218 

150m FOR Реј TO за: BEEF .а5 20: 
ЕБР Bese NEXT F ЊЕ 
2515 INK 7: PRINT HT Б.а: “Your f 
іпзі score із "ЕЕ 

лама IF 5C? T THEN LET се 
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1азе PRINT : PRINT "Best so far 
a E i 
тава. PRINT : PRINT “another game 
тава IF INKEYS="y" THEN GO TO ге 
eee i INKEY5z"n" THEN GO та ја 
тата GO TO дева 

зава INK а: PAPER 7: BORDER F: 5 
жоғ : | 

2000 FOR fei ТО зе: PRIMI HT г.а 
PENDE 149: ВЕЕР .1,20: PRINT et 
Paes NE REESE IS а. ар ok = 
2813 FOR Раі Ta Se: вер .25,58- 
ге ЕНИ E 

тер LET пт=а: LET sc=sserscea š 
газа INK 7: PRINT AT 8,8; 'scorem= 
"TEC 

2443 LET гада: LET азд 

заза LET xizà: LET ч1=@: GO TO 5 
= 

зада PRINT AT rq; " 

Залы LET азазіччх!-іцазх]і +INT URN 
Ds3-1l: LET гара іры É £ yu +INT 
(RNDx-5-1 

сага INK +: PRINT AT га; СНЕТФ 15. 
= 

A639 IF асх ANG г-е THEN GO ТО 4 
Bao 

3040 ТЕ RNO:. 88 THEN LET nm =8 
зина RETURN 

3388 PRINT AT r.a;" " - 
заја LET с ee ъкъ+тмт «ем 
Dx3-1) LET rceretr tyt—tr 9Y4} «INT 
(RNDx3-11 

SIDE NUR RNDs7: PRINT AT r.4: CHR 
3138 ТЕ а=х AND r=u THEN GO то i 
3148 RETURN 

зава PRINT AT r,a;":";HT га-г, за 


= a Я 4 
5210 LET а-а+ i} - га>х)» INT CRN 


Dse3B—-1) LET rsreireus:—trn 

ДАМ 3-1) „лр ae 
дага INK 7. PRINT AT гасни 15 
32380 PRINT AT ва-г 38-45 CHR ise 
3240 IF а=х AND сац THER M i 
3258 RETURN 
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EC БЭ 


egaa DATA 
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14,60,121,258,121,860,2 0 


56,146,214,284,124,184 

18,58,124,124,254,214, 

112,60,158,255,158,80, 
‚вы гё, =, 


„а 
S6 d. ó, 146,2,65,4,0 
„24, Bees 192,229,319, 102, 


б 
© 
L Qn 


вава рата à. 128. 129,189,255. 189. 
128.128,25,3222 


Probability Check 


To use 

- This Spectrum program simulates a ball dropping on to a 
triangle of pegs. On hitting a peg, the ball bounces right or left 
at random, before falling to the next layer. This is repeated 
until the balls are counted at the bottom of the screen. 

This gives an idea of how accurate probability theory is for 
small numbers of events. You have control over two factors: the 
number of runs (events) and the number of choices of routes. 
The number of routes must be between 2 and 8, but there is 
no maximum limit to the number of runs. 

For example, when tossing three coins, there are four 
possible results: 3 heads, 3 tails, 2 heads and 1 tail, or 2 tails 
and 1 head. However, there is only one way of getting 3 heads 
or 3 tails, but three ways each of getting 2 heads and 1 tail or 
2 tails and 1 head. Thus in 200 throws, you would expect to get 
3/8 x 200 = 75 results of 2 heads +1 tail, and 1/8 х200 = 25 re- 
sults of three heads. We can simulate this in the program. Enter - 
200 for ‘number of runs’ and 4 for number of choices. See how 
far your results agree with the predicted ones, the choices being 
right and left instead of heads and tails. 


Notes on listing 

120 NU is number of events. Note this is corrected to a positive 
integer if necessary. 

140 NC = number of choices, corrected to between 2 and 8. 

150 The final ‘field’ is yellow, with a green border, blue ‘pegs’ 
and a red ‘ball’. 

200—240 Print triangle of pegs, with straight channel after 
bottom layer, one for each choice. 

300—360 Each ball starts at print position 1, 16. 


9: г PROBABILITY CHECK ee 
Size са ззаріесіва j 


Свозсев- 3 سس‎ | _ oe а 
й у a “ғана по. LSS 
зо аз 25 
Size af злее. шаа 
снозсез = tin р Е. 
с b | z fun mo.281 
= 2 = 
% 


340 checks if peg underneath ball, ` | 

- 350 if balhas finished falling. p^ 
MCA Бай о сен ЕЗ 

` 500-520 Print number of balls in channel so far. Note i this 


PROBABILITY CHECK 


w. 


is done by checking the X Со of the ball when it- 


lands. 
Repeat for NU runs. 


Listing 


5 1 REM Probability св 
= НЕМ © S.Robert ФЕ 


iac INEU ium ЖЕП рае 
> LET nDUC-hcHincoixricl-n 
€inc-83 

= 


368 PRINT 78:52 
PRINT "Choice 
mk ше 9 


T 
Асыл РВРЕВ Е Sum 

же 

==" 


зав ТЫҢ 1: FOR Fei TO nc-i: 


g--f TO F-2 STEP 2 


230 PRINT ат t22, тва вој" a 


сей NEXT в RENE F 


23 PRINT : ғыс Р=плс== ТЕ 
oR ч ЈЕ ЕБ = 
зае "E AG +5 зе стане 
ONE E = 

=== 

See TO nu 
Sic өші 

Bee TI ET 

ыз RIN loro 

заб = озш Sho qoi ci eae 
со FO Gd 

SSG ТЕ y iS THEN сп те === 
сее LET чшы+л: PRINT НҮ u- 


Sa RINE spp Ou o ss 

ђе 

SAA LET а пена =a ich] +3 

все PRINT ет Да ча сет 


INT {RNDES-3} F2: 


eck 

веі 13952 

неск“ 

вани SUD 
BS nu 
+? іш 

ы: RES ПЕ 

ЕЕ а 


Ga 


Wave Addition 


This is a short Spectrum program designed to show con- 
structive and destructive interference between waves. It uses 
polychrome high-resolution graphics very effectively. 


То use 

When RUNning the program, all you decide is the phase 
change between the two waves; that is, how far apart the peaks 
will be. If the waves are on top of each other, then they are in 
phase. If the peaks are separate, the waves are out of phase. 

After you enter the phase change, the computer PLOTs a 
graph showing the two waves, and their sum. If the sum is far 
from the horizontal axis, there is constructive interference. 
When the sum is near or on the horizontal axis, the waves cancel 
each other out ~ this is destructive interference. 

'The maximum sum of the waves is also given. 


Note that if waves are completely out of phase, dotted line lies 
on horizontal axis. : 


Notes on listing 

10 Graphic A is used for the PI symbol. 

20 INPUT distance between peaks of the two waves. 
40 DRAW horizontal lines and axis. 

50 DRAW vertical axis. 

60 Scale on vertical axis. 

70 PRINT phase change. 

80 Horizontal scale using graphic A. 

90 X4 used to calculate maximum sum of waves. 


slightly out of phase а 


WAVE ADDITION | 
totals 


hase 


É: 
nm 
£ 
М. 
м 
E 
© 
б. 
Im 
8 
oy 
а) 
шм 
^B 


Max. 


aves in p 


w 
| Waves 


CT e M mu E E " 5 Ж i ў у : i 
Vi EUM А ИРИТАЦИИ 
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Waves almost completely out of phase ` 


100-160 PLOT 3 waves. 2 waves in red and blue, sum in. 
black. X1 and X2 are points on 2 waves, X3 is point on sum 
of waves. 

150 Every tenth wave goto PLOT heavy dot routine. 

170 Calculate maximum point of wave using X4. 

200-220 PLOT heavy dot routine. , 

8000 DATA for Greek letter PI. 
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i РЕМ Wave Additian 
ја FOR Р=й Fa =: READ а PORE 
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га PRINT "input phase change” 
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Converting ZX81 Programs 
for Use on the Spectrum 


Although ZX81 BASIC is essentially a sub-set of ZX Spectrum 
BASIC, there are several significant alterations which have to 
be made when converting ZX81 programs for use on the 


Spectrum. 

For our purposes we can divide programs into three 
categories: 
(a) Programs consisting mainly of words or calculations. The 


(b) 


(с) 


mathematics, PRINTing and string commands have 
altered little, and many Adventure-type games, mini word 
processor, mathematical and quiz-type programs can be 
virtually copied from the ZX81 listing with only а few 
modifications. (These types are also easy to convert from 
Spectrum to ZX81, bearing in mind memory limitations.) 

Programs which are mainly words or calculations but with 
supporting diagrams. This includes many scientific and 
maths programs where a picture helps to explain the 
calculations, as well as a lot of educational programs using 
a ‘reward’ (such as a drawing of a pattern or animated 
picture if you successfully complete a test). Here there is 
some difficulty in conversions, and often it is simpler to 
devise a new routine on the Spectrum to replace the old 
graphic routine. 

Programs highly dependent on moving graphics or pic- 
tures. This covers a whole range of games as well as serious 
programs to do with map-making, drawing, planning, 
designing and some maths programs. To convert these, 
you usually need a very clear idea of exactly what the 
program does and what it shows on the screen. 


Here is a list of conversions which you may need to make 
when translating to Spectrum BASIC. 
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PAUSE 

To pause until a button is pressed on the ZX81, PAUSE 40000 
(or any number larger than 32768) is used. This should be 
changed to PAUSE 0 on the Spectrum. The screen gives a 
flicker when PAUSE is used on the ZX81, and often PAUSE 
is avoided and an empty FOR-NEXT loop used instead. This 
may sometimes be replaced by PAUSE on the Spectrum. 


SLOW and FAST 

The ZX Spectrum operates at the speed of the ZX81 in FAST 
mode with the steady display of SLOW mode. For games using 
animated graphics, you may need to slow down the program on 
the Spectrum. Do not use PAUSE, because this will not work 
when a key is pressed; use instead an empty FOR-NEXT loop, 


ср. 
FORF = 1 TO 20: NEXT F 


You could also slow down by adding BEEP statements, giving 
you sound as a bonus. 


SCROLL 
The Spectrum scrolls automatically, which is all very well, but 
the SCROLL key command has been omitted. This is a nui- 
sance in games which rely on scrolling when the screen is not 
full, such as Alien Descender and Asteroid Belt. Also in word- 
based games, if the word ‘scroll?’ appears at the bottom of the 
screen, an inexperienced user might press the largest key in 
sight — the space key — which will BREAK the program. 
Fortunately, there is a POKE we can do which allows for 
scrolling without the ‘scroll?’ at the bottom of the screen. Then 
we need to PRINT too much on screen, so that we force the 
scroll. Therefore replace each SCROLL in a ZX81 program 
with 


POKE 23692, 255: PRINT AT 21,0: PRINT 
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PEEKing and POK Етр on screen 
In many ZX81 programs you will see commands such as 


PRINT AT Y,X; 
LET A$ = CHR$ PEEK (PEEK 16398+256:+ PEEK 
16399). l 


Addresses 16398 and 16399 hold the address of the screen 
position last PRINTed at, so PEEKing this value gives the code 
of the character at that point (in this example, position Y,X). 
Conversely, POKE (PEEK 16398+256жРЕЕК 16399), n 
РОК Ев the character with code n into the screen. 


On the Spectrum, the PEEK can be replaced with 
LET A$ = SCREEN$(Y,X) 

which gives the character at Y,X, ог 
LET A = ATTR(Y,X) 


which gives the ATTRibutes of the character - colours, bright- 
ness and whether it is flashing. To replace the POKE is 
awkward, as the characters on screen are stored in an odd way 
in the Spectrum. You will have to use PRINT AT instead of 
а POKE command. 


Timing 
On the ZX81 timing routines may be made by altering a 
variable every time a loop is executed. This may be slowed to 
a convenient value (e.g., one loop per second) with a PAUSE, 
or a dummy command such as LET A = RND. Alternatively, 
a systems variable called FRAMES (PEEK 16436+256ж 
PEEK 16437) may be PEEKed at intervals. This is used with 
PAUSE, and can accurately keep time for up to about eleven 
minutes before needing to be reset. 

On the Spectrum, these timing devices can be replaced by 
the Spectrum FRAMES, which, as it is a 3-byte counter 
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(PEEK 23672+256*PEEK 23673--65536жРЕЕК 23674), 
will give the time in fiftieths of a second for nearly four days 
before running down. Remember to POKE these values to zero 
when starting the timer. Also, PEEK these values twice and 
take the larger value to get the time (see manual for reasons). 


Multi-line statements 

It is a good idea to ‘compact’ ZX81 programs by putting several 
variables in one multi-line statement rather than using one 
variable per program line. Small FOR-NEXT loops, dimen- 
sioned strings and other routines can be conveniently reduced 
to fewer lines. 


PLOT and UNPLOT 

On the ZX81, PLOT uses pixels which are one quarter of the 
size of a character square. This gives 44 rows and 64 columns 
of PLOT co-ordinates. On the Spectrum, the PLOT command 
uses high-resolution — 256 points by 176. This means that fine 
lines, circles and pictures can be made which are impossible on 
the ZX81. Problems arise when converting the large ZX81 
plotted pixels to the finer Spectrum points. 

If the ZX81 is using a routine to draw lines or pictures, you 
may be able to replace these with the DRAW and CIRCLE 
commands. Where the ZX81 PLOTs a more solid shape, the 
Spectrum would give an outline only. Try replacing the ZX81 
routine witha PRINT AT routine. 

By using PLOT OVER 1, unplot can be achieved on the 
Spectrum. 


Memory 

The Spectrum has colour and high-resolution graphics. This 
means that on a 16K machine nearly 7K is reserved for the 
screen, and you can only use 9K. Soa 16K ZX81 program may 
be difficult to fit on to a 16K Spectrum. To cut down a ZX81 
program, use multi-line statements. Also, look out for common 
routines which could be replaced by user-defined functions, 
and IF - THEN routines which you can compact, e.g., 
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10 ІЕ A$= = “YES” THEN GOSUB 700" 


700 PRINT ‘YOUR SCORE 15 0? 
710 LET K = 14 

2720: EET У 
730 RETURN 


“сап, on the Spectrum, be compacted to 


_ 100 IF a$ = ‘yes’ THEN PRINT ‘Your score is 0”: LET K 
=14:LETy=y-1 и 


Adina sound, colour and user-defined graphics | 

- Naturally you will want to make full use of your ZX Spectrum’s 
` superior features. However, don’t add sound, colour and 
UDGs until you have the converted program working. If you 
- add as you convert, there is a greater chance that the program 
. will end up tortuous and convoluted. 


Patterns. 


+ 


With some quite short programs the ZX81 can draw very in- 
teresting patterns. Not only do they look good at any stage, as 
on a print-out, but also they are interesting to watch. The 
pattern is endlessly changing, growing and reforming. 

These patterns are fascinating to look at, but they have other 
uses too. For instance, they can be incorporated into other 
programs as rewards. When you complete a Fairway round in 
ten shots, instead of just a message such as YOUR TOTAL 
NUMBER OF SHOTS WAS 10, a pattern would appear to 
reward you. This greatly enhances many games and serious 
programs too. 

This sort of program often appeals greatly to people who are 
not generally interested in computers. The pattern programs 
show off the ZX81’s graphic capabilities to a great extent and 
may help to condition a non-computer-loving family to the fact 
-that you must have a printer, more cassettes, etc. 


Pattern 1- Diagonals 


Listing occupies 0.4K 
Program runs in 1.3K 


This program draws a continuously changing pattern by тоу--. 
ing a ball around the screen which leaves a trail of graphic 
characters. Every now and then the graphic character changes, 
anda pattern builds up. Only graphic characters between codes 
128 and 138 are used. 


. 128 PATTERNS 


Notes on listing 

50-110 X + Y are co-ords of ball. 
A$ is the character to be printed when ball moves. X1 + Y1 
are the speeds north and east. (When negative they are south 
and west.) Note that the ball can start in any diagonal 
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direction but cannot go straight north, south, east or west 
since this would result in a continual bouncing off in one line. 

500 Print bali, so that you know what the pattern is doing at 
present. This line can be removed if you dislike the ball. 

510—520 If ball ‘hits’ side of screen, make it bounce. Note that 
a border of one square 15 left all around. 

600—610 Change Х + Y according to X1 + Y1. 

620 Print current graphic where ball was. 

630 Change graphic randomly to next graphic. RND «.05 
may seem a very little chance of changing a graphic, but in 
ten moves, the chance of changing at least once is 1—(0.95)"°, 
which is 0.4. So the graphics do change quite often. 

640 Repeatloop. 


Listing 
i БЕН Sl als 
= COPYRIGHT 
M GOBERT SPEEL лева 

за REND 

SE LET xX=13 

ва LET yi 

та LET AS=".8" 
io LET Xizi-2s:RNMD:.51 
116 LET у1-1-2ех» ЕНр«.5;) 
Бра PRINT AT Y, X; "о" 
БЛА LET хж1-к1-2+ іх за +24 (X =13) 
Бай LET Yi=yi-2 z (ү =2091 42% (Y =1 
зай LET x=x+xw 1 
Б1а LET Ү=Ү+Ү 1 
оа PRINT PT Y-Yl1,xX-xX31;Hn5 
аза IF RNO<.8S THEN LE бфарні» 
УСОРЕ 65+1) 1125 (P= 3) 
Бад GOTO sag 


Pattern 2 - Reversal Diagonals 


Listing occupies 0.5K 
Program runs іп 1.5K 


This is a development of Pattern 1. 
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Instead of using just graphics with codes 128-138, it uses other 
graphics, codes 0-10, as well. 

Also, the picture is drawn on a black background rather than 
on the white screen. This looks less effective printed out on 
paper but is very striking on screen. 


There are many ways in which you can alter this program. If 
you wish a more frequent change of graphics, change the value 
of RND in line 630 го RND <.1 or even larger. You could even 
omit the RND part, so the graphic changes every go. You could 
also change the starting position of the ball, leading to a more 
(or less) symmetrical pattern. The bounce angle could be made 
random, producing a less symmetrical pattern. 


Notes on listing 

The only changes to the listing of Pattern 1 are: 

20-40 Draw a black background. Note that a black border will 
always be left around the pattern. 

80 The pattern starts with a white square as the initial graphic. 

630 The limits on graphics have been changed so that graphics 
0—10 are included. Note that if the line read: 
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<285 THEN LET Не Сани 
1121185 (Afa ЕН) -1338 


then black and white squares would not be included in the 
possible graphics. 


Listing 
1 REH PATTERNS 2 
19 REN vorr RIGHT 1982 
EST SPEEL 


OR Fzi “Fa 
2 T та 


H 


ша 
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ийини 
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к= БІРІН 
+x 
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Pattern 2А — Diagonal Zig-zag 


One variation of Pattern 2 limits the graphics to just vertical 
straight lines. 

The background here is made up of horizontal straight lines, 
producing a mind-bending pattern such as shown overleaf. 


Notes on listing 

The changes from Pattern 2 are: 
30 Prints horizontal background. 
80 A$ is initially a vertical line. 
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630-640 The only characters used are vertical lines. Note that 
RND in 640 will produce a change less often than in line 630. 
This compensates for the possibility of the graphic changing 
in line 630, and then changing back immediately in line 640. 


Listing 
4 REM PATTERNS 2A 
i8 REN COPYRIGHT 1982 


„ROBERT SPEEL 


20 FOR F= “га 22 
3h PRINT = 


за NEXT F 
ва LET хета 


тоа С i 
ара PRINT AT v,X;"O" 
S18 LET XicXi-B*ix-30)- 


550 PRINT AT иа кај РА 
зав ТЕ RNO.@6 THEN LET 


658 GoTo soa 
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Pattern 3 – Square Patterns 


This program draws a pattern entirely made up of graphic 
squares. However, due to the continuous forming of new 
squares, the old ones get drawn over or have a part knocked off, 
so that there are usually very few whole squares on the screen. 
The resulting pattern formation is very attractive. 

Occasionally squares may be drawn in white, i.e., that area 
is rubbed out. This stops the screen from becoming too full. 

I have made the squares appear in a square format, which 
leaves the right-hand part of the screen empty. This can be 
changed to give a full screen format. 


АА АА АА АА 


SER REESE а 
MERE Ж 88 8 
= = = 8 = š = = 
[22222113 
[13222123 
SHER É BEEBE 
вагезава 


Notes on listing 

60 L determines the size of the square. 

70-80 M is the code of a graphics character, code 0-10 or 128- 
138. Change as desired. 

100-110 Х-ҒҮ are the co-ords of the centre of the square. By 
altering Y to a larger number and changing line 140 from 

. 10-- G4 Y to, say, 15+G+Y, a full screen format can be 

achieved. 

120-160 Draw square. The +10 in line 140 ensures that the 
computer does not try to print offscreen. 
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170 Redo loop. Note that GOTO 50 would be less random, 
oddly enough. Recursive calls to RAND are not a good idea. 


Listing 


5 НЕМ SQUARES PHITERN 
38 REM COPYRIGHT 1962 
S. ROBERT SPEEL 


RND 
Ба LET L=INT (БИБ?) 
РА LET MsINT (само #1213 
зе IF RNO<.5 THEN LET M=N+125 
300 LET X=RND 22 —4 


FOR Gz-L TO L 
£49 PRINT RT LOtF +X, LO +G + ; CHER S 


Note that sometimes the program appears to stop doing 
anything for a few moments. This is when it is printing a 
graphic square on top of a square of the same graphic. 
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Pattern 4 — Buildup-breakup 


This is a more symmetrical pattern than the others. It creates 
a graphic pattern randomly, but each time a graphic character 
is chosen and positioned, three similar characters are placed 
so that the whole pattern is symmetrical, vertically and 
horizontally, about the centre of the screen. 

Two examples of patterns produced by the program as it 
stands are shown, below and overleaf. 


The program can easily be altered to produce other types of pat- 
tern by changing A$. 
If there are one or more spaces in A$, the pattern will be 


open, whereas if there are no spaces, the pattern becomes more 
solid. 


Notes on listing 

50 Аў contains the characters to be used in the pattern. It can 
be any length. Try using vertical and horizontal lines only, 
or letters. 
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100—240 Loop for drawing four copies of each character in A$. 
Note that the loops will occur the number of times you put 
into A$. 
100—120 Position of character, centred about middle of 


screen. 


200—230 Print four identical characters from A$ in square. 
240 Repeat for other characters in A$. 
300 Start again at beginning of А8. 


Listing 


BUILDUP-EREBRUP 
ЕЗ5 YRIGHT 12382 
-RORE aes срез, 


DN S 
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Pattern 4A — Buildup-breakup Block | 


This shows one useful development of Pattern 4. 

Instead of printing just one character at a time, we print four. 
This includes the first character from strings A$, B$, C$ and 
D$, printed in a block. 


A$; B$ 
C$; D$ 


Again, A$ can be any length, but B$, C$ and D$ should be the 
same length. This allows build-up of small pictures and more 
regular patterns. If A$ = B$ = C$ = D$, then the block is made 
of one graphic character repeated four times. This can produce 
a pattern like this. 


WAWAN 


Notes on hsting 

50-80 A$, B$, C$ and D$ are the same length. These 
particular graphics will give a weird ‘bubbling’ effect on the 
screen, which looks good in action but not when ‘frozen’ on 
paper. Change A$-D$ to any values you like, and increase 


p 


138 PATTERNS ` 


their length as you wish. Try blocks of characters with codes 
6and 134 only. 

110 Note that A’s limits have changed; dug te р ат А+1, 
А must notexceed 20. > 

200—235 Print blocks of SH eS in m way with second 
line online below first line. 


за REM BUILDUP-BREAKUP BLOCK 
20 REN COPYRIGHT 1953 
S ROBERT SPEEL 
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MENT F 
GOTO 108 


Overlay 
Program runsin 1K 


This is a 1K pattern which is interesting to watch for quite a 
long time as it changes and develops from one configuration to 
another. It makes a good display program, as it repeats itself 
only at long intervals, each character in line 30 taking fifty 
seconds to run through. By changing line 30, you can have com- 
pletely different patterns appearing. You can also have the list 


` 
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longer than eight graphics and the program will accept this 
without further change. 


Two patterns produced by the program are shown, without any 
changes to the listing, even to line 30. This shows how much 
just 1K can do for you! 


Notes on listing 
10 Xsets the size of grid. 
20 Z acts аз а pointer to the character being used in string A$. 


140 | PATTERNS 


- 30 Аб contains the characters used in the pattern. This can be 
changed and made longer, to give completely different 
patterns. 

Here is one alteration you could try. 


S6 LET n&-".sBaà ай + 


40-90 Printing loop. Each character is used for about fifty 
seconds before the next is started. | 
70 adds 128 to the character’s code to get its inverse 
character, or take 128 offif character is already inverse. 
80 PRINT 2 normal and 2 inverse characters in 4 quadrants 
of picture. By putting a character, immediately followed by 
its inverse, in line 30, very striking effects can be produced 
when they change over. 

90 Repeat 150 times. 

100-120 Set Z to next character in A$ and repeat for new 
character. If at end of A$, start sequence again. 


Listing 


2 REM OVERLAY 
2 РЕН Ву S.ROSERT SPEEL 
за LET жх=17 


ве LET == 
Se LET H*- 2 OBPREBC 
ас FOR Без TO 152 


ва LET C-INT (RAND x9) 

Зе LET H-12B4CODE AŞI?) - (CODE 
вест) 3127) #555 

ЗЕ PRINT AT в.с;афитъ; ат B.X-C 
усне AST Х-.ё; Быза аат X-B.X 


ғ 
1:00 IF шығы ПЕ THEN LET === 
112 LET 22—59. 
ізе GOTO зе 


РОА 


Program runs in IK 


To use 

When you RUN the program, a single pixel appears in the 
bottom left-hand corner of the screen. You can move this 
‘cursor’ with keys 5, 6, 7 and 8, leaving a black trail. With a 
little practice, you will be able to draw good pictures. You can 
move the cursor without leaving a trail by pressing key 0 
(RUBOUT). This will make the cursor rub out lines which it 
passes over. To get back to drawing mode, press key 9 


(graphics). 


Note that it is possible to run out of memory with very black 
pictures when using only IK RAM. With 2 or more K, you 
won't run out of memory. The pictures above and overleaf were 
drawn using a 1K machine. 
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Notes on listing 

10—30 X and Y are the co-ords of your cursor. RS is set to 1 
to PLOT, 0to UNPLOT. 

60-70 Move cursor according to key pressed. 

80-90 Check that you do not go outside bounds of screen. 
The picture area can be increased if using 2K or more RAM, 
i.e., 80 LET x = x+(x<1)—(x>60) 

LET y= у+(у<1)-(у>40) 
100 Change plot/unplot mode if key pressed. 
110 Repeat until BREAK pressed. 


Listing 
2 REM PLOTSKETCH 


іп LET ХЕЗ 
mE LY Y= 
зе LE: нес 


«е PLOT х,у 

Se OIL BS <3 THEN UNPLOT хуу 

ЗЕ LEY X=X+ ТР НКЕУ $= а“) - î ENKEY 
3 


“эа TE МЕ (INKEY $=" 7" i VENE 
== “5° 

ВО LET х-хъ! Ха 1- {X:50? 

SG LET у => UF {5B} ўт ае 


100 LET epe {RS + СЕЫКЕ Е се“) 
— UINKEY §="3" 
1328 GOTO aa 


Screen Art 


A program for drawing directly on to the screen. 


Listing occupies 0.8K 
Program runs in 1.8K 


It is possible to make pictures on the screen with the ZX81. 
This can be used to design garden layouts, graphic designs, 
drawings with perspective or just for amusement. 

On running, a black square appears in the bottom left-hand 
corner of the screen, flickering. The keys 5, 6, 7 and 8 move 
the flickering square in the normal directions leaving a black 
trail. The keys 1, 2, 3 and 4 are also used for moving north- 
west, north-east, south-east and south-west respectively. 


Holding down a key leads to continual moving in that direction. 
When wishing to move more slowly, one space at a time, press 
SLOW - the D key. This slows the movement by about half. | 
To return to the normal speed, press FAST - the F key. 

To change the black square to a different character, press 9, 
then input the new character. So, to get a grey trail, press 9, 
shift graphic shift H, then press NEWLINE twice. To getzero, 
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press 9,0 NEWLINE. To get a space for moving without a trail 
and rubbing out lines, just press 9, NEWLINE. 

One more command is TEXT. When you wish to write 
something on screen, it is awkward to keep on pressing 9, the 
new letter, move along, and so on. By pressing T, you can input 
a group of letters/graphics, so to write ‘HELLO’ press T, 
HELLO then NEWLINE. If your string is too long, and won’t 
fit on screen, you will lose the excess letters. 


Notes on listing 

10 goto variables. 

100 Print the character in use, B$, making it flicker, so as to 
be seen more easily. 

110 Wait for key to be pressed. 

200-240 Movement of character. Note that the keys 1—4 
appear in both X+Y co-ord change lines. 230-240 stop the 
character going offscreen, so that diagonal movement keys 
will produce vertical/horizontal movement when reaching 
the edge of the screen. 

250—280 If in normal speed, repeat loop. If in slow speed stop 
for a moment. Increase F as desired, for longer pauses. 

300—310 If the key showing SLOW or FAST is pressed, 
change to appropriate speed. | 

320 If key 9 is pressed, goto change graphic routine. 

330 If key T is pressed, goto text routine. 

400—430 Change graphic routine. Make sure new graphic is 
one character long. 

500—540 Text routine. Input text, shorten it if too long for 
screen and put back cursor directly after the text. 

. 8000—8030 Variables X--Y are co-ords of cursor, B$ is the 

cursor character, initially an inverse space, and SP is the 

speed which is initially fast. 


Listing 
1 REM SCREEN ART 1 
19 GOSUB ooo 
d cot Деве Атах лате рна На 
D 110 IF INREY фа" THEN GOTO i109 
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328 LET AS=INKEYS 
ача песа“ OR A$ S“ THEN СО 


Tm 

ай LET Х=х+гаф="'8") + АТВ + š 
Яф=" Э“) АВ ГИФ" 1" г ина-та 
220 LET Ye іне“) + (ABH +4 
ае a" -iR 2T) - (Аве 1"F ГП" Z 
QU gy 

аза LET X=xX+1X<@J)- IDM D313 

240 LET Yey + іча - СРЕ) 

250 IF SP=1 THEN GOTO 100 

SEO FOR F-1 TO 10 

ста NEXT F 

250 GOTO 108 

зав IF яф=“б“ THEN LET SP20 

зза ТЕ ав" Е“ THEN LET SP=2 

о HEN gore 28 

x = ` 5 S 

3 GOTO 253 pope 


аза INPUT ав 

419 IP АФ="" THEN LET Ags" > 
438 LET 58 g82 

439 SOTO 


Sog INPUT A$ 
510 IF СЕЕ THEN LET AS= 


сәз PRINT AT Sax AS 
реја) fior ХЕХ LEN Ag 
зай бото. ioo 


Screen Art 2 


Listing occupies 1.8K 
Program runs in 2.9K 


To use 

A number of new commands have been included. The most 
important of these are PLOT and UNPLOT. This means that 
you can draw things half-size (i.e., twice the resolution) easily. 
Press PLOT - the Q key — to get into PLOT mode, and the 
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computer will draw narrow black lines instead of the normal 
thick ones. This is very useful for drawing delicate outlines and 
details. You cannot use TEXT while in PLOT mode, but you 
can move in all eight directions normally. To wipe out or move 
around, you press UNPLOT - the W key — which is equivalent 
to the space in PRINT mode, only one-quarter the size. (Note: 
moving on to a PRINTed graphic with a PLOTted point will 
erase the whole PRINTed graphic, unless it is a graphic which 
could be formed out of PLOTted points. To return to PRINT 
mode, just press PRINT - the P key.) 

Another useful set of commands is the RETURN group. 
These are usable in both PRINT and PLOT mode. The 
RETURN commands the return of the cursor to one of nine 
positions which are the four corners, the centres of the four 
sides and the centre of the screen. They are numbered: 


со сл ~ 
On > 


1 
4 
7 


The cursor starts at position 7. To return to the top right-hand 
corner, press RETURN - the Y key, then press 9. To return 
to the centre, press RETURN, 5, and so on. 

If you are lucky enough to have a ZX Printer then add these 
lines. 


зае IF пъз"2" THEN GOSUB 550 
Ба INPUT 2% 
қыз ТЕ Ёфэ “а” THEN RETURN 


COPY 
зза RETURN 


These allow you to COPY your designs. Note that you have to 
press Z and Z NEWLINE to COPY, so that you cannot COPY 
by accident. Once the picture is COPYed, you can carry on 
with the same drawing. You can only COPY while in PRINT 
mode. This opens up many more possibilities, such as making 
personalized Christmas cards, ex-libris labels, and you can 


make a collection of your drawings. 
ж 
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Notes on listing 

340 If RETURN is pressed goto RETURN sub-routine. 

350 If PLOT or UNPLOT key is pressed, goto PLOT routine. 

600-650 RETURN sub-routine. Co-ordinates of nine places to 
which you can RETURN are stored in C$. 

700-850 Main PLOTting/UNPLOTting routine. 

700-710 converts co-ordinates of PRINTed point to that of 
PLOTted point in same position. 

720-730 Set PL according to whether PLOTting or 
UNPLOTting. 

740-770 Make point flicker so it can be seen and PLOT or 
UNPLOT according to PL. 

780—800 Check for key pressed, and divert to line 900 unless 
movement. This saves time. 

810-850 Move point within screen boundaries and repeat 
loop. 

900-990 If PLOT or UNPLOT changed, set PL accordingly. 
If RETURN or PRINT pressed, goto relevant sub-routines. 

1000 PRINT routine. Change PLOTted co-ords back to 
PRINTed co-ords and go to main loop. 

1100-1150 RETURN ssub-routine. Make sure that key 
pressed is in correct range. 

The co-ords of points to RETURN to are stored in C$. 
Note that since these are PRINT co-ords, they have to be 
converted to PLOT words. 

8040 C$ contains the co-ords of the nine RETURN points. 
Each co-ord is given two numbers and the Y co-ord is given 
first. The co-ordinate pairs are separated by full stops for ease 
of entering and checking. 


Explanation of copy routine 

This is straightforward, but note that your have to press Z then 
Z NEWLINE, so that you cannot accidentally COPY. Note 
also that you can continue the drawing after COPYing, which 
you cannot do by pressing BREAK COPY. 
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Listing 
4 REM SCREEN ART 2 
34a ТЕ Age|etY" THEN GOTO sua 
350 IF Dn$z"oQ" ов Ags u” THEN СО 
то таа 


ава LET ВФСТАКЕЧФ 


аза ТЕ 88:43" OR ваза" THEN GO 
та ќаа 

ага LET ВЕЗИР разв-а 

BRR LET yeh СЕБЕ ТО PE-21) 
баз LET хецяЕ Oe ЕД та вЕ+З} 
ка GoTo лав 

теа LET Y=43-msy 

710 LET x=2 

258 IF вас" THEN LET PL=1 
FRA З=" THEN LET PL =ë 
558 Броў? „Ў 

тес UNPLOT ку 

750 IF EPL=1L THEN PLOT X, y 

Рта ТЕ ріай THEN UNPLOT 

тай IF INKEY£z"" THEN cord’ vee 
Рад LET AS=INKEYS 


зва cud НЕА“ св > а” THEN Go 


sigo tee Х=>~ + (вве“аез + (P= Bae 
ABE ST) (ASSN (Age 171 Cages 
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a 
а" 
и 


№ Ваў =>“ + Вафа PC +: 
poc ss Ec 
LET Nees (8+@)-(% 2832 
LET wey? су <@i — {у #3 
сото 736 


IF вас" THEN LET Pi =@ 


и fü 


85 


їй 
(fF Ca 
лә] 


ifa 
f 
© 


E SCREEN АВТ. 
| gig IF взето" THEN LET PL=1L1 
20 IF A$=" P” THEN coro fan 
930 IF _Ag="Y" THEN GOTO 1100- 
esa вото 730 

4888 LET YeINT ((43-¥) 22) 
Têlê LET X=INT (X2) 

зәре GoTo рде 


3399 LET „РЕТКЕ FC 
E ze а <"ї" OR d THEN GO 


1126 EET REsUAnL Ags 
1130 LET X UBL СОР TO RE43)5 


зае LET Ye48-URL сзіяе то неза? 
=: Я E 
Iisa GoTo 738 

| 8840 LET C$=" 0000.0015. ge31. T 


.ig919.2031.22800.,.2115.2131 
езе; RETURN- 


Text Display 


Program runs in 1K 


To use 
This program scrolls text continuously across the screen from : 
right to left, with a double border scrolling the other way. It 
is suitable for short messages, notices and advertisements. 
Using ІК, the message can be up to about 80 characters long, | 
with a simple border. With extra memory, you can have much 
longer messages, e.g., complete specifications of the computer. 

When you run, you are first asked to input the text, then the 
border. The border can be made of any characters, and 
graphics look very effective. 


š E ВЕ ВЕЕЕ Е E ЕЕ EZEK B EE 


Notes on hsting 

10-40 Input text. If length of text smaller than 31 characters, 
double it until it is 31 or more characters long. Remember 
to put a space after the text. 

50-80 Repeat for border. Note for both text and border you 
must enter some character, even if it is only a space. Just 
pressing NEWLINE will result in an endless loop. 

100 PRINT first 31 characters of text. 

110 Put the first character of text at end, i.e., scroll right to left. 

120-140 PRINT two borders. 


15725 


„ TEXT DISPLAY 


| 150 Scroll border left to right. 
160 е until BREAK pressed. 


^. 58 
ы Bš- 
ісе 


РЕМ ТЕЗ DIS ср РЕ 
REF то S.R. SPEIL 


PRINT “TENT?” 
INPUT A$ 
ТЕ LEN 84:31 THEN LET A$=AŞ 


IF LEN A$:31 THEN GOTO за 


PRINT "“BORDERT™ 
INPUT Бф 
IF LEN B$:31 THEN LET 2+=8% 


IF LEN В$‹31 THEN GOTO 78 
CLS 


PRINT AT бае; St TO BI? 
LET аф=н{2 FO FREES? 

FOR G=8 TO + 

EE G 3+5:6,.6@;54ф{ұ FO з) 


| NEXT 


2227 BS=-BStiLEN BSY+BS( то LE 
бото Lee 


Program runsin 1K 


To use 
. You аге in control of a small vehicle at the top of the screen and 
can move it left and right with keys 5 and 8. Your object is to 
find a way through the maze of blocks which rise constantly 
' towards you. The game ends when you crash into a block from 
above and your score is then given. You can crash sideways into 
. blocks without harm. 


Notes on listing 

10 X isthe x co-ord of the object. 

:20 Sisthescore. 

.30 PRINT vehicle. 

.40-80 PEEK at two squares directly underneath vehicle. If 
either contains a graphic shift T (code 6) then goto end of 

2 program. | | š 


154. | 

90 Move Penile left or right according to key pressed. Make 
sure it does not go too far left or right. | 

100 PRINT blocks near bottom of screen. To make game 
easier, reduce number of block graphics from 6 to 4. 

110 SCROLL blocks towards your vehicle. 

- 120 Increase score. 

- 130 Repeat until you crash. 

140 You crash – score given. 


` AVOID. 


Listing 


REM RUGI 
Š РЕМ BY 5. R.SPEEL 


за PRINT AT ах; " EE оа £L,X+ 


ве FOR кез TO 2. 

а LET В-РЕЕК (PEEK 1639642565 
PEEK 16399) 

ве PRINT "OO"; 

тё IF п-в THEN GOTO 148 

аа NEXT Е 


Og LET X-X-tINAKEYE£-"B"3-U0INKEY 
2793") X280) + (X< iY к 
188 PRINT ет 15, RND #20; саће ай"; 

ағ 15,RNDxz280; "а" AES 

118 SCROLL 

LET 5-5+1 

сата за 


PRINT "USCOURE-";$ 


Adventure — Hero Maker 


The idea behind Adventure games is that you represent some 
sort of warrior who goes in search of treasure, usually in a 
dungeon, castle or other enclosed area. You search through the 
rooms or caverns looking for gold, weapons and other useful 
things. Each treasure is generally guarded by some kind of 
monster which you have to kill. If you survive and get out, your 
success is measured in how much treasure you escaped with and 
how many monsters you have killed. 

At each stage of the game you are told where you are, what 
is around you and, if there is a monster there, what type it is. 
You have a set of commands to move you through the cave 
system and to fight monsters. 

One way of programming such a game.is to have a pre- 
planned set-up. The program contains monsters, treasures and 
traps thought up by the programmer. These always seem 
exciting for the first couple of games - for instance you might 
be able to get past the pit in Room A using a plank from Room 
B and attack the ‘ghosts’ in Room D using the sword in Room 
C. However, once you have played the game a few times, you 
know all the traps, where the gold is hidden and how to 
maximize your chances of winning. In effect the game is ‘used 


up’. 

Another way of making an adventure is to use a random set- 
up. A system of caves or rooms is randomly produced and pre- 
defined monsters and treasure are placed at random in each 
cave. Although you will gradually learn the best tactics against 
a particular type of monster, you will not get to the stage where 
you can win every time, or know just what to expect. This is 
the system which I use for Hero Maker. 
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VOU ENTER THE CAVE SYSTEM BY 


SLIDING DOUN A LONG CHUTE. THIS 0 


GPENS INTO SAVE 163. — 


GF FRESH HATER- 
THERE IS 8 UARTHOS 


you TRY та STAS IT 

SUORD. 

YOU HURT ІР BHDLY. 
THE MONSTER TRIES 


онат DO YOu ро? 


я SMALL POOL о 
IN THE m 


UITH YOUR 


то KICK YOU 


You тех TO SLICE It WITH YOUR 


хе. 
YOU HURT ЕТ BHDLY. 


í 


THE чавтнее IS DERE. 


=, 


you FING з GOLD COINS. 


ANG 


а AXE 
YOU DRINK FROM THE POL. 


3 
PRESS вз то REST. 
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Hero Maker Part 1 


Listing occupies 9.0K 
Program runs in 11.0K 


Typing 1n the program 

Adventure games are complex and take up a lot of RAM. As 
you won’t always have the time to type in many pages of listing 
in one go, I have split up the program into stages. Put in the 
main ‘program core’ and add the other stages later. At any 
point, the game is playable, although the first couple of stages 
are a little inflexible. When you feel ready to progress to some- 
thing more complicated, add the next stage. You will find in 
the end you have a very worthwhile game which will keep its 
playing value. 

The background. You are a young warrior who, although of 
noble birth and great strength, are too poor to take your rightful 
place among the country’s heroes. To become an acknowledged 
hero you must enter the Caverns of Power. This is a large cave 
system, originally used by men, but long since overrun by cruel 
and ferocious monsters, guarding their treasure to the death. 
Once in, there is no turning back, you must fight your way to 
the only exit.... 


The Core Program 
Listing occupies 6.1K 
Program runs in 7.3K 


To use 

In the core program, the main cave system is set up and 
monsters placed. This means that when you RUN the program 
the screen will be blank for a few seconds. You are then 
launched straight into your first fight. You have two weapons: 
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a sword and an axe. When, during a fight, you are asked ‘what 
do you do?’, press key 1 to use your sword and key 3 to use your 
axe. Later you will find other weapons. A club is used with key 
2, a heatwand with key 4 and an icestaff with key 5. 

Only experience will teach you how best to kill monsters, but 
some methods are obvious. For example, a furred lion will be 
cold-resistant (against icestaffs) but its fur will easily be burnt 
by aheatwand. 

When you fight a monster, you are told if you have hit or 
wounded it badly. You are also told your resistance. This 
number tells you how many more hits you can take. You start 
with resistance 10, and if it goes to 0, you ‘die’. When monsters 
bite or otherwise damage you, your resistance goes down. 

When you kill a monster, you find treasure in the form of 
gold pieces, and one new weapon. You can then rest for as long 
as you wish. Each time you rest, your resistance increases until 
up to its maximum. Your ‘maximum possible resistance’ also 
increases for each monster killed, to an absolute maximum of 
around 20. 

The cave system is a grid of 10 by 5 cave locations. Your cave 
position is given as 2 numbers separated by a line. The first is 
the cave’s north co-ord, the second its east co-ord. So cave 
1/3 — where you enter – is in the centre of the southernmost row. 
You can escape by going north out of one of the caves in row 
10, but you have to discover which one. In each row, one cave 
location is actually solid rock, so you will not usually be able 
to go in a straight line to the exit. 

Your aim is to get the highest ‘hero rating’, which is.made 
up from your ‘heroic bonus’ and how much money you have 
accumulated. 


Notes on listing 
The basic core program includes the complete fighting system, 
which is very complex. Each type of monster has its own 
individual resistance to each type of weapon. 

The monsters attack in different ways; and are better at some 
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forms of attack than others, e.g., a cave hyena is good at biting 
(bite value = 5) but cannot claw or crush at all (claw value and 
crush value = 0). Other factors, such as the fact that you are 
gradually becoming better at using a weapon, are also taken 
into account. However, the computer deals with all this, and 
you need not know how it works when playing the game. 


10 GOSUB variables and set up cave system. 

1000—1010 Pairs of lines like this, setting SN to some number 
and then GOSUBing 6500 or 6550 occur throughout the 
program. GOSUB 6550 means SCROLL SN times, GOSUB 
6500 means PAUSE for a couple of seconds, then SCROLL 
SN times. 

1020 Check for winning — you exit cave system. 

1030-1100 Youenter cave. If monster there, goto 2000. 

1110 No monster in cave. 

1200-1550 Possible choices of action given, and commands 
accepted. Checks for wrong commands and ignores them. 
Carries out correct commands. 

2000-2020 Select random monster. M$ and P$ are parts of the 
monster array, and are more convenient to use. 

2100—2150 Wait for your fighting commands. If no command, 
go straight on to monster's attack, as you are assumed to be 
standing around doing nothing. 

2200—2280 Monster selects its attack, with a bias towards what 
it can do best. 

4000—4360 You hit monster, damage calculated. Death of 
monster checked for. Lines 4230-4260 see how many times 
you have used a weapon, and whether you gain experience 
in using it. 

4500—4590 Monster dies. If treasure, goto 7000. Increase 
number of monsters killed, maximum resistance (if 
appropriate) and heroic bonus. | 

4900-4910 You press a wrong key. Note that you lose your 
chance to strike that go, due to indecisiveness. 

5000-5230 Monster strikes you. Your resistance is decreased 
if it hits you successfully, and your demise checked for. 


- 
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5500—5590 You win. Your final hero rating is the sum of your 
heroic bonus (which depends on how tough your fights with - 
the monsters were) and your gold pieces. 

6500—6530 PAUSE routine. 

6550—6580 SCROLL routine. 

7000—7070 You find treasure, gold pieces and one weapon. 

8000-9990 Set up variables and caves. This is done in FAST 
mode to save time. 

8010—8060 Your possible weapons. Each weapon has an 
action, e.g., STAB, which is 6 letters minus VAL X$(F,7), 
and a name, e.g., SWORD, which is 8 letters long minus 
VAL X$(F,16). The last figure is the maximum damage 
possible with that weapon. 

8200-8240 Directions. The figures are the co-ords to move 
your position north and east (— 1 for south and west). 

8300-8350 Monsters. The figures are as follows (taking the 
unicorn as an example): M$(1,1 TO 12) = name, M$(1,13) 
= number of characters to remove from end of name, 
M$(1,14 TO 15) = resistance of monster, M$(1,16 TO 20) 
= defence values against sword, club, axe, heatwand and ice- 
staff respectively. M$(1,21 TO 25) = attack values for bite, 
kick, impale, claw and crush respectively so that the unicorn 
is good at impaling (value 6) and biting (value 3) but cannot 
claw or crush (value 0). M$(1,26) is the extra cash bonus for 
killing that monster, 0 for the unicorn as it does not collect 
extra gold. M$(1,27) is the heroic bonus for killing that 
monster, the unicorn's value of 5 means that it is moderately 
difficult to kill. | 

9000-9260 Set up R$ which holds the cave system. Note that 
the cave system is actually a 7 by 12 block of caves, of which 
only the middle 5 by 10 are used. This is to stop the computer 
looking outside the array when considering exits from a cave. 

9300-9370 Variables. RS = your initial resistance, CASH = 
gold pieces gained, MK = monsters killed, HQ = heroic 
bonus, W$ = your weapons, Y$ = your current max 
resistance and experience bonus, CEX = extra cash for 
killing monster, Y = how many times you have used 
each weapon successfully. CVN and CVE are your co-ords 
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in the cave system. К 
9800-9940 Short introduction, SLOW апа start enter cave | 
routine. | 
Listing for Соте 1 


1 REM НЕБО МВКЕН 

= REN COPYRIGHT 19282 
S.ROBERT SPELL 

з ВЕН CORE PROGRAM 


за созив пара 


јава ТЕ CVUN=32 THEN GOTO 5588 
зеза PRINT HT в.а; “YOu ENTER CAU 
E ";CUN-1; "; CUE-i1;AT з.е 


1:55. 15 BNE: СМЕ „ДА „а“ THEN с 
ite PRINT = THE СЕЕ CONFAINS N 
ized PRINT = PRESS“; РНБ Z=; “R? T 


1219 FOR Бо TO 4 

ірге IF RStCUN+UARL се(е,„ в TO 272, 
CUECUAL C&iF,B TO 91,1):"20" THEN 
PRINT TAS за; CSF, 11;"3 та ќа“ 
:СФіР.1 то +: j 

NEXT F 


1258 FOR F=i TO ара 
LET ЯФ-ІМКЕҮФ 

IF A$="R" THEN GOTO заза 

IF H&-"T" THEN GOTO баве 


[aft fb ot ы 
t fomnum [Су 
в Qm n 
но mmm d 


FOR без TO 4 
1313 IF RStCUNTVURE ГЕТЕ, TO 71, 
CUE тия: рат, то За „47 с“а“ ам 
HEC UGE, IL! THEN GOTO i378 


© 
~ 
89 


LEY CUN-CUN КЫ сове TO F 
збе LET CUE=CUEC+UAL СФіс,в то е 


3 
з PRINT " YOU DECIDE Та GO "; 
#i6,1 TO Dl; asa” 


: 
& 


MU ETE 
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8 дара сото 3529 a 
^ 4418 IF RS<UAL үжіз ТО 2) THEN L 
gm ET RS=RS+INT IRNOD 2D} + = 
` 3428 IF RSoVAL Yeti то в: THEN L 
ET RS=VAL үжіз то ај | 
1аза PRINT AT 15,2; YOU HAVE В R 
Сбт... 7. YOUR RESISTANCE IS NOU 
Ф `w 
Заба Е = = 3 
3452 NEXT F. O 58 
2522 FOR Е-ав то вз 
1520 PRINT AT Ба; 


1548 PRINT HT за 
isse GoTo asset “И 


LI 


рава LET NE-HEIDIINT (ЕНОЗЕј +i 
2010 LET P-N TO 12 пар HELI13) 


E вага PRINT "THERE IS Я ";P5&:" IN 
THE"; TAB е;“ CHUE." 


: ваза PRINT “NHAT DO YOu DOT" 

Ра == 
2128 FOR Foi ro 288 
ваза LET Re-ENKEYS ка = 
2348 ТЕ рэза“ AND B&iUbU THEN L 


HL HE 
21958 IF = THEN GOTO 46808 


2200 LET МҰстығ (НО 
URL На U22} +URL ча БЗ 
ача NSS ны уы 


p дева LET SN-i2 
а зале созце База 


аза au 
о S-UAL хата; IEE Ваў 
:тав e; ката, в TÜ islont x= НЕТ 
в = 


Алға LET HR-INT iRNDEURHL ке, 12 
1} URL Ур Еъеъ+а 
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б acean e 
зара PRINT "Y Ou Ex? NGI ЕЕ ai < 
азза вото 22068 
ге CT DAaAH-HBR-UBL Nei b an 
2 БЕЈ ENT (“YOU LAGUND E. AS AND 
баре}; ("СНЕ HURT IF көрісу. BND 
DESE? 
42538 LET CUBE CMTE 
3248 IF УЕ та THEN GOTO 43868 
4258 LET Y iZ} =Ë 
4268 TF “віда! 
StS i=xSTREe VAL 
алев LET маста 
NBII} TO 152) -D 
4318 IF VAL не 


ааа PRINT "THE ";P&;" із БЕНО.“ 
~ 

4526 LET весом, CUE зачат 

4538 LET СЕКТОР NISS: © 

4568 IF yeti TO Bi:"28" THEN LET 
YELI то еъхът PRS CURL Yii TO ру 


457@ те RS(CUN,CVUE,3)>"@" THEN G 
часа? 


4582 LET H@=HesvAL 
596 бата 112€ 


са PRINT “ vou TRY то Lor = НЕ 
ON UHICH YOU ро NOT няш." 
за GOTO 22808 


# LEY СРЕЗЕ: 

ia PRINT " THE MONSTER TRIES T 
ісі TO РАЗА G$; б Пи“ 
га LET HD-INT (RND#1@) -i@+UAL 
{F28} 

{з IF MB3s=2 THEN GOTO 5260 

129 PRINT “BUT FRIES.” 

133 GOTO 2188 

авва LET RS=RS-NBD-i 

Eoi PRINT “YOU ARE HURT. YOUR F 
ESISTANCE IS NOW “Газ; (7: YOU BI 
E." AND RS«x1! 

Бара ТЕ RS<i THEN STOP 

S238 GOTO 5338 
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DES‏ ج 


Soie FOR F= 2e 

сере PRINT RN тав 31; "ЕВ" 

база NEXT 

= = چ چ ج چ = = = = == = > = == = = PRINT‏ 5538 


сова ERIN НЕ 3,3, ОБ HAVE ESUR 
PED ALIVE. "ШТ 5.8 ; tH] RAVE UIC 
RSH: GOLD COINS," ње 5.3: “RAND H 
AVE KILLED “НК; MONSTERS. 7 
E559 PRINT АТ за, S; "тена HEROIC 
BONUS IS “ме ` 
55858 PRINT AT 22,4; "Уейн HERO RH Е 
TENG те _ 7; HCAS 
сазва STOF 


6558 FOR du 1 то SN U 
R55E SCR ` 
65768 NEXT = - 
вөзе PRINT ет езе; 

6588 RETURN 


7000 LET RE&(iCUN,CUE,3)z"G" E 
теза LET CD-INI (RHND£15)424CEX 2 
тезе LET CHSH-CHSHeCD 

7848 LET UF-INT ҮННЕР 54. 

таса LET US(tUF)-BIR$ (UAL ШЕНИЕ) 


?веа PRINT “YOU FIND “iOD” GOLD 
COINS TRE 8" AND A SIXEIRIE, 8 
„ ТО i5- UAL MECN, 163 3 
тага RETURN 


yr 


заза FAST 
заза DIM x 
` BEEF LET ха 


EJ 


ES 
5 

базе LET X${2) ="BASH..2CLUB....4 

баға LET X$ i3! -"BS5LICE.1BXE.....9 

Sasa КЕТ X$i4)-"BURN. .2HEATUAND® 

Sese LET Mg i5 ="FREEZE@ICESTAFFSO 


ЕЕ. 


віва [5,83 
3 = “KICK: 2-38“ 


DIM Fei 
атла LET Feil} 
Віга LET ЕЊЕ 
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LET 2$ (3} ="IMPALE.1" 
LET F&idi-"CLRU...37 
LET 2$ (51 ="CRUSH..2 
iM сега, е) я 
РЕМ Getai --мовтназеа“ 
LET Cg 12) = Бонна" 
LET C&i3)-"EHST egal" 
LET C$i4)-"uEST 80-1" 
esga DIM H$&i5,27! | 
S3i@ LET N$tL}="UNICORN.....5143 
45533460005" 
ёзра LET HMB {2} ="WARTHOG.....5102 
41352568883“ 
азза LET маса) -"FURRED LION. 1831 
гљааввевсага“ 
8348 LET М$ {4} -"CHUE HYENB..2883 
24555002013" 
5358 LET _ M$ (5) ="GORILLA. ....S145 
52156518825" 
зага RAND 
зате DIM Кеса, та 
зага FOR Есе то із 
заза LET R$iF,i,il-"o" 
зада LET R$iF, 7,1) стан 
за5а FOR G-2 То в 
заба LET R&IF.G.1)-"1" 
Sese i ВЕС, dici 


= LET E 
заза NEXT С. 


даа FOR F=i TO 7 
Заза LET Бӛіз,Е,із-ее- 
дава LET ВЕСЗО,Р 3) ста“ 
агза NEXT F 
S228 LET RE=INT ¿RND=3) +3 
3250 LET R$ti2,RE,1)-"1" 
заба LET R$;I1,RE,1)-"À1" 
ззаа LET наста 
3318 LET сазн=а 
8326 LET нка 
заза LET на-е 
S348 LET Us-"19109" 

. 2358 LET Y£-"1019100- 
S560 LET СЕХ- 
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авеа PRINT " YOU ENTER THE CAVE 
SYSTEM BY SLIDINE DOUN п BEEF 
CHASH. THIS GPERS INTE CHUE 4/3. 


зара LOU 
веза сото заза 


Hero Maker Part 2 
Listing occupies 7.7K 
Program runs in 9.0K 


To use 

When you are ready to expand Hero Maker, add this 
expansion. Don’t worry if a few of the new lines expunge old 
ones — this is necessary to update the listing to cope with the 
new parts. 

This will expand the fighting possibilities, so for the first time 
the cave will have a short description and some effect on 
combat. Caves can now have pools of water, or be slippery- 
floored, or be filled with steam. 

You can also look up your status. This gives up-to-date 
details on your resistance, weapons and gold pieces. It also 
gives your heroic bonus, the measure of your success in killing 
monsters. 


ыы STATUS SAA 


уби RESISTANCE IS 19 
YOU HAVE 38 GOLD PIECES 
YOUR WEAPONS ARE: - 
i SUORD 
i CLUB | 
ә HEATUANDS 
i EFCESTAREE 
HEROIC BONUS = дә 
{PRESS NEWLINE ТО CONT ANE) 

You can now break your weapons, so you will be glad for a 
few spares. You can also be interrupted by monsters which just 
wander in while you are resting. These monsters have no 
treasure of course. 

Due to the increased difficulty of killing mon your. 


= 
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initial resistance has been increased to 20, and the maximum 
to 30. 


Notes on listing 

1040-1050 SLP is the slip value апа VIS the visibility value for 
acave. 

1090 GOSUB cave’s description. 

1200-1280 A status command has been added. 

1340-1500 These lines make it possible for a monster to just 
wander into the cave where you are, while you are resting or 
thinking. 

2400-2430 Room with pool. At this stage, this only means you 
might slip and fall while fighting. 

2500-2520 Slimy room – easy to fall over here. 

2600-2620 Steam room - your view of the monster may be 
obscured here. 

3000-3080 Enter wandering monster. 

4050-4060 Check for falling over and steam. Note that you can 
only slip when using a heavy weapon such as a sword, axe 
or, worst of all, à club. Light weapons — heatwand and ice- 
staff — will not make you slip. 

4150-4160 You miss due to steam obscuring your sight. 

4330-4350 Your weapon breaks. 

4600-4660 You slip and fall over. Note you can actually 
damage yourself like this. 

6000-6170 Status. Resistance, gold pieces, weapons and 
heroic bonus given. 

9070 Each cave is given a value to determine if it is a steam 
room, pool room, etc. 

9300-9350 New resistance = 20. 


Listing 


3 REM CORE + PART 2 
1343 LET SLP-6 

заза LET UIS-G 

заза созив B2822100sUAL REICUN.C 
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NT " PRESS"; TAG 1а; “пә T 
O REST 7 TAB да; ту TO SEE ŠTATUS 


зова ТЕ n$-"T" THEN GOTO ©9828 


ізі Ir RND<.1 THEN есте Gece 
зера ТЕ RNG<.3 THEN сата agaa 

2480 PRINT “THIS CAVE CONTAINS n 
SMALL POOL OF FRESH HATER.’ 

R438 LET GL P=. = 

= за LEY ы-і 


гоне PAIN? е Дара GROUND HERE IS 
COVERED IN LIMY G 2 Mcr нына 
OUR Багыш Ви ALGAE BATCH + 
25:8 LET бігез 
2328 RETIR 
= 


2 THE 
D FULL OF STERH." 

S610 LET VISA 

Boso RETURN 

зава LET N$=NSCINT (RNDSsS) 343 
3818 LET P$=NŠ( TO 12-05 NE (ac) 
зеге PRINT " SUDDENLY, B ";pg;" 


COMES"; TRG г; “IN, 


4@58 ТЕ (2-3 AND RNDO.1XSLP) OR 
і2-в AND HNDI.2s:38LP) DR 12-3 AND 
END«.15:5LP) THEN GOTO 4588 
ames IF RND<UISs.2 THEN GOTO 415 
a 

4158 PRINT "DUE ТО THE THICK STE 
ЯН. YOUR AIM IS SPDILT, AND YOU 
MISS. БИИ 

4168 бота 2288 


1558 BÉ INT Ф B ro асу MÜISEÉ i MMC 
Biz. 8 ТО о љ:- На ХЕХ, $6535 = BREA 
BRS. 

4350 LET НЕЕ: = БРЕ (AL Umizti-il 
1 
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4558 IF Уа TO е) "за" THEN LET ` 
“фіз то 2)-STH& (USL үзіл To zi 
ЗЕМЕ S IRNDESICi3 


чаше PRINT “ YOU з зе выр FALL п 
VER. MESSING 7 ТВЕРЬ. а 59 

#5313 IF HNDC.O0 THES 2072 Sees 

: ET BS-RS-INT {ВМО —1 


зегі | 
4038 PRINT “YOU DRE BRUISED, AND 
„ТОЧНИ“; TRE а; “RESISTANCE ІЗ NOU 


абза IF 95:1 THEN GOTO 5308 
4656 GOTO зава 


Бара LET 5N-15 

База сосен воча 

Geza PRINT “beke STATUS sel; 

тав 3; TRB а: YOUR RES ЛЕЕБЫНҒСЕ ІЗ 
^ RS; TRE =; "GL HB =; CASH; са 


гр PIECES"; TRB 2; “YOUR WEBPONS B 


ваза FOR Fzi TO =. 
Бата iF час. “HS F2 
НЕ FTF; USF): UP - 


за 

iF 

рі “Se RND 
= 


D 


а 
бай 
САШЕ 
Zee 
a 


ЛІП 
papa 


jen 
Я 
га 
га 
^ 


z 
= 
МИЛЕДЕ) (n 


ЕБУ S=°" THEN GOTO 6148 
LET SN-16 
ши вън 
GOTO лева 


И а HE at 
м 
ny 


"D CD CR TI 
Ьб раја 


Я 4 
Еј 
ІШ 
r 
- 
ay 
Li 
т 
fit 
2 
m 
Q 
7 
al 
it 
4 
D 
& 
М 


ІШІ (ЛЕП 


fm o mu 


Шш MI 
DICE CI 
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Hero Maker Part 3 


Listing occupies 9.0K 
Program runs іп 11.0K 


То use 

Now that you are expert at Hero Maker, you will survive longer 
in the caves. Therefore, we must consider eating and drinking. 
While the typical adventurer carries food, water is more bulky 
and needed more often. You start off well watered, but 
gradually you will become more and more thirsty until you die 
of dehydration after eighteen hours. As each rest takes one 
hour, and a fight or moving from one cave to another takes ten 
minutes, you would not last long were it not for the caves with 
pools. Up until now, these have not been very important, but 
now you can drink from the pools and last another eighteen 
hours. Just rest in a pool cave and you automatically drink. So, 
.as long as you go to a pool cave every few hours, you will be 
OK 

There is a new type of cave - the stalactite cave. Here stalac- 
tites hang from the ceiling and fall off and may hit you. You 
will have found that monsters do not slip or get bewildered by 
steam, as they are used to their caves. However, no monster can 
get used to falling stalactites, and they are just as likely to fall 
on the monsters as on you. 
There are five new monsters. The death turtle is very well 

armoured and the earth viper is rather vicious as, although it 
has a low resistance, just a few bites from it can kill you. 


Notes on listing 

1060 DA is the chance of a stalactite falling on you. WA is set 
to 1 if there is drinking water (a pool) in the cave. TM is the 
time since you last drank (in 1/6 hours). 

1440-1490 While you rest, a stalactite may fall on you (if there 
are any). You rest for one hour and if there is a pool of water, 
you drink. 

1700-1860 Stalactite routine. The stalactite can hit you, thé 
monster, or nothing at all. DM is the damage done by a 
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falling stalactite if it hits the monster. A falling stalactite- 
reduces resistance by between І and 5. 

2000 There are now ten monsters to choose from. 

2050-2060 Make monsters weak for the first couple of 
combats, and stronger than usual for later combats (after 
thirty-six hours). 

2300 Stalactite cave description. 

3000-3050 Some adjustments to the wandering monster 
routine. Some SCROLLing is needed to prevent program 
crashing due to ‘OUT OF SCREEN’ problems. 

5570-5580 Modification to ‘you escape’ routine. 

6116-6120 Status now includes details of how long you have 
been in the caves, and when you had your last drink. 

6540-6660 During routine, check if you die of thirst. 

8300-8400 Increasing the size of M$ and adding just five extra 
program lines gives five new monsters. This is the advantage 
of using string arrays. 


Listing 


З REM CORE + PARTS газ 


1358 LET База 
2878 LET ча=а 
iecit LET TM=TM+1 


1558 LET TH=TH+3 
= 
1468 Оре ра THEN созыв 171 


аша ТЕ TH>?a THEN PRINT “YOU AR 


а oi ЕТ cues +5 
2426 ТЕ un»a THEN 60508 1628 
зада PRINT “сиз DRINK кє THE P 
Sai 


2°88 ТЕ RNDOLOG THEN GOTO ава 
#58 PRINT "B SYALECTITE тоа DISL 
OGDGED AND CRASHES DOWN, “; 

2728 IF RND<.5 THEN СО Ta! ата 
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12738 PRINT "DOING NO HARE.” 
3748 RETURN 

i750 PRINT “HITTING You." 
i750 LET RS=RS-INT iRND25:) —1 


1778 PRINT "YOUR RESISTANCE ІЗ H 
Сыа RO eG рае INSTANTLY." Я 
ND вас 


A788 ТЕ Баса THEN атар 
1738 RETURN 


1560 PRINT " R STRALECTITE FALLS 
ON TOP OF THE “; FP; 

1518 LET DM=INT (Вмоз5ј +1 

СЕР IF DHi3 THEN PHINT " CUTT IN 


тт. 
fase ТЕ БНза THEN PRINT “ AND IH 
PALES ТҮ. 
3848 LET NStia ТО i5) =STR$ (UAL 
45:12 TÜ 151 -DNI 
заза ТЕ URL М {14 TO 15: +i THEN 
зото асве 
1358 RETURN 


вара LET Nes HS CINT (RND=18) +1} 
раза YF ТЕЪТ МЕ 2 THEN LET NS: 


то га: =“ 12111" 


гава ТЕ ГР МО >= ЕМ LET 51:35 
соох: з са NS (tS те 29} ++ 


сага IF TH:FE THEN LET но-во-2 


ззев PRINT “ THERE BRE STRLECTIT 
ES LOOSELY ATTACHED TO THE ROOF 
OF THIS CAVE." 

2310 LET ра=2 

25320 RETURN 


сирена LEP Балалы NOD про) +1} 

заза SCHOL 

заза SCROLL. 

зада PRINT 20,8; " SUDDENLY, Я 
“3 FS; * COMES" TAB Zi “IN. 

сәсе LET SN=as 


4316 LET МЕР еј 
454@ IF Un-i THEN GOSUB 1588 


ate IF RND<.22DR THEN GOSUB Ата 


взге PRINT RT 11,2; “YOU TOOK ";I 
NT (TT+FH26+.SY; “ HOURS то Евсар 
E." | 
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25ве PRINT AT 14,4: YDUR HERO ВО 
‚СТЕНЫ із “; на+сази 


5118 PRINT “ YOU HAVE BEEN IN TH 
Е: an RES “FOR “j INT ГРУ.“ 


віва PRINT “BND YOU LAST DRANK " 
SINT СРМеба.51;“ HOURS асо.“ , 


63408 IF TM>72 THEN PRINT “you 
НЕ HAD NATER FOR A LONG T 


5598 IF TH»1808 THEN = 
евев RETURN А a 


S65@ PRINT "YOU DIE FROM LACR оғ 
WATER. = 
5558 STOP 


заа DIM HM$iic n) 
азге LET HE аў Те PYTHON. 1122 

1 обова 
336 SET H M£i07:-"CRUERHN CROC.1976 
43156082019" 
9368 LET HS iG)-"DERTH-TURTLEGO187 
532220018038" | 

зош LET M$ iG} ="ERRTH-UEIPER 


1949800 z. 
S755S406045S555 
S988 пы 


Hero Maker Conversion to Spectrum 


Hero Maker is easy to convert for use on the Spectrum as there 
is no graphic display. As it is a very long program you may have 
difficulty in fitting the complete version on to a 16K Spectrum, 
as 6.7K is used for the screen display. To condense it, use of 
multi-statement lines is a good idea. 

The SCROLL routine will have to be changed, using POKE 
23692, 255. 

You сап have a screen n which does not clear, but continuously 
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l ol to 1152 the next bit of information. This will mean ` 

changing some of the PRINT AT statements. ; 
I do not think that there is anything to be gained by un 

the string arrays to DATA statements, as this would mean con- 

siderable reworking of the program. 

|. One other change involves pauses. To avoid screen flicker, 
dummy FOR-NEXT loops have been used, and the number of 

loops needs to be increased on the Spectrum as it works faster. 

` Alternatively, you could use PAUSE as the шш does not 

flicker. 5 


Fairway 


Program occupies 2.7K 
Program runs in 3.6K 


To play : 
The computer asks whether you wish to start, or see a con- 
densed version of the rules. 

When you start the game, a display of part of the course 
appears, with your ball in the bottom left, a square hole and 
patches of “grass' consisting of grey patches and groups of 
asterisks (ж). You ‘hit’ the ball by typing in the initial of the 
direction you wish to go: N, S, W, E, NE, SE, NW, SW, 
followed by the distance you wish the ball to go. 

Thus, to go north 20m, you type N20; to go south-east 45m, 
you type SE45. 

Note that there are no spaces in the INPUT. F 

The field measures about 30m by 20m. However, there is a 
variable element in the strength of hitting — so it is not that easy! 

The grey grass is very thick and the ball loses momentum 
when it goes into it and doesn't go so far. 

The asterisks represent springy grass and your ball may 
bounce away in any direction, including straight back from this 
grass. 

The ball also has to end in the hole; it will go straight over 
if you hit too hard. 

When you get the ball into the hole, your number of shots 
is given. There are six holes in the course and the lower the final 
score is the better. 
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Notes on listing 

10 GOSUB stating variables and rules. 

80 GOSUB new hole, field, etc. 

90-100 PRINT ball and hole. 

110—120 Reset move and input it. 

130-180 Set ХІ and ҮІ (increase іп X+ Y each go) according 
to inputted value. 

190—200 Find how far ball meant to move. Make sure not more 
than 60. 

210 Reset V, pointer to next character in A$. 

220-430 Mainloop. 
230 Printspace where ball was. 
240—250 If ‘grass’ should be there, print it if ‘thick’, or goto 
sub-routine for ‘springy’ grass. 
260—270 If ball at edge of field, make it bounce back. 
280-290 Find new values of X+Y, making sure they are 
within limits of field. 
300—310 PEEK into ball's new position to see if grass there. 
320 If ‘tough’ grass, slow ball down. 
330 Print ballin new position. 
340 Do again until shot finished. 
350 Add 1 to ‘shots’ counter. 
400 If ball ended up in hole, goto finished-hole routine. 
410-430 Reset X1 + Yl and do another shot. 

440-490 Message on finishing І hole. 
Wait for short time (increase if desired). 

500—510 Increment hole counter and find total score so far. 

520 Ifall holes completed, goto end. 

530 New hole and goto new hole sub-routine, etc. 

550-590 End of game, total score given, new game offered. 

600—630 If ball in ‘springy’ grass then make ball go in random 
direction and put back grass when Ба leaves. 

5000—5090 Print eight sections of ‘tough’ grass and eight 
sections 'springy' grass at random positions on screen. 

5100—5120 Print hole at random position but not too near bail’s 
starting position. Note hole cannot be covered by grass. 

5130—5180 Set variables. H = current hole, SC = number of 
shots for that hole, X,Y are co-ords of ball, X1-- Y1 are the 
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N/S and W/E velocities respectively. 

8000 Start of game. 

8000-8030 Initial variables. H = number of holes so far, SCO 
= total score, V = pointer to inputted shot, L= what is 
underneath ball — initially a space. 

8200-8250 Check if rules desired. Note that no flickers occur, 
as would occur if PAUSE were used. 

8300-8440 Rules. Modify, increase or omit as desired. 


For a full 18-hole course, change line 520 to 520 IF H>17 
THEN GOTO 550 and alter line 8130. 
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Listing 
3 REM FRIRUAY 
2 REH cor тн? 
159 cosu аз. 


за PRINT AT Y ,X; OU, > 
299 PRINT ат м.м; “Ра AT М+М; 


19 DIM AFIN 


i wiP$ilizmU)-IiRBi1)m" 
158 LET Џем Сеа са) 
16% LET X22 (AR {U} а "Е"; {AB (U) =" 
іва LET и- + (Ха са) 

єл? СЕТ DzURL афо TO 3} +InT («ем 


210 LET 
220 FOR. > 
gag IF NT ST ЭБ Les THEN PRINT 


2%; 
Piso" ТЕ L=23 THEN СОЗЫВЕ бей 
пере ТЕ 5258 OR Yi THEN LET Уі 


pto IF х:1 OR х>за THEN LET Хаг 


-X1 
250 LET маму lt (его -iY =Z 1) 
газ LET Х=х+х1+(Х=@} - (Хеза) 


зва PRINT FT у.х; 

Зла LET LzPEEK (PEEK 16398+256 + 
PEEK 16595) 

icis ТЕ | -136 ОН | -8 THEN LET Fe 


F + 

Зза Е AT YA OT 

ава IF (X=M OR X=M+1) AND Сен 
OR Y=N+1) ај GOTO 440 


422 LET vi-e 
азе бота 100 


4.4.0 ; 
458 ТЕ 50:3 THEN PRINT “CONGRAT 
ULATIONS - 
45а IF s6>6 THEN PRINT “UGH. "i 
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ата PRINT “ WHOLE IN "56 
ава FOR F=1 TO 58 


Hei 
51@ LET Нан: ъсо+5 
S520 IF H>S THEN вето Ева 
вза GOTO га 
S58 PRINT AT 18.1; "THATS IT. YOL 
в TOTAL SCORE IS ": 500 
Mx СО INT ат 14, а “ANOTHER GARE 
7 Pa 


a70 IF INKEYS$-" YT" THEN RUN 
58S IF INKEYS="N" THEN STOP 
заа GOTO 570 


ваз LET Xi=INT RND£3)-1 

510 LET YÀi-INT íiRND£3)-1 

620 PRINT AT Y,X;"s 

538 RETUR 

z000 FOR Рад то в 

5010 LET YC=RND #16 +1 

сага LET XC=RNDs20+2 | 

5938 PRINT AT УС. ХС; ‚ ат 
; BUIBT Ста, AH i 


Яе NEXT F 
Боба FOR F-i та 8 

EE LET vCRND-185 

вате LET xXC=RND ESS 

овоа PRINT AF YC, XC; "вв"; AT YO 
С: ЕЕ: RT Сё бат: ==“ 


Брой NE 
Sis СЕЕ Не INT сео ама) +18 
S228 = INT ІНМІРжАЗ) 


га PRINT AT М.М; “PRC AT N+1,M; 


ET = 
зава PRINT " FBSIBUmnv" 


NT 

S228 PRINT “PRESS “ngan TO START 
z R ""R"" TO SEE RULES 

22320 IF INKEYS="S" THEM RETURN 

— IF INKEYS="R° THEN GOTO аза 


180 . FAIRWAY 
S258 GOTO ваза. 


ззаз CLS 

S318 PRINT “ YOU HAVE TO “ys Se 

ЕЯ 5 HOLE PUTTING COURSE IN 

з FEN SHOTS" 

8320 PRINT “AS POSSIBLE. YOU MUS 
СЕТ THE BALL - G - , INTO AN 


2358 ркт “THE HOLE - ВЕ"; AT 5, 


5540 PRINT " ES CAN HIT THE BAL 
ih NANY Š OUTH, WEST OR ERST, 


6350 PRINT “COMBINATION OF THESE 
AND 785 CAN CHOOSE HOW FAR TO Н 


8368 PRINT " YOU ENTER THE ІМІТІ 
BL ог YOUR CHOSEN DIRECTION, TH 


S370 PRINT “DISTANCE IN METRES. 
THE AREA OF THE SCREEN 15 30x29 


МЕТКЕБ." 
S336 БЕН “ E.G.- TO GO NORTH 2 


PRE 
S338 PRINT " N29. THEN PRESS NE 
ЕНЕ а то GO SOUTH-EAST ем, PRES 


5498 PRINT " GRASS LIKE THIS - š 
= КЕ THICK AND WILL SLOW DOUN T 


Li. 
5518 А БЫТ “GRASS LIKE THIS - * 
~ MAKES THE BALL CHANGE DIRECT IG 
N RANDOMLY .° 
озса PRINT Ж PRESS NEWLINE TO 5 


TART. 
Saca INPUT A$ 
34423 RETURN 


COPYRIGHT  S.RO0BERT SPEEL 1982 


Alien Descender 


Listing occupies 1.5K 
Program runs in 2.5K 


One lonely alien survived the attack on Earth and landed in the 
Pacific Ocean. It began to sink down a narrow gorge in the 
depth of the sea. How long can you, controlling the alien, keep 
it alive and avoid crashing into the rocky walls of the gorge? 

The alien has one weapon which can destroy. anything 
directly below its feet. But this does not protect its ‘wings’. 
Every now and again, trails of bombs are launched from below 
(inverse asterisks). These can be destroyed by the alien’s 
weapon, or avoided. If they hit the alien, it is destroyed. There 
are also larger depth charges, shaped like this. 


аа Е 
DEPTH CHARGE BOHB 


To destroy a whole depth charge, the alien must be centred 
exactly above it. 

The object is to survive as long as possible. 

Use keys 5 and 8 to move left and right respectively and 6 
to shoot at the area directly below the alien's feet. At the end, 
when your alien is destroyed, your score (number of goes 
survived) is given, along with the current highscore. You are 
then offered another game. 

Remember that as the alien is under water, its reactions are 
rather sluggish. It moves half a second or so after you press the 
movement key. If you hold down a key too long, the alien may 
well blunder on to one wall of the gorge. Naturally, as the alien 
descends, the gorge gets gradually narrower. 
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Notes on listing 

10-60 Variables. HI = highscore; A = X co-ord of alien; GO 
= goes; A$ = space between walls of gorge; RS = co-ord of 
bomb, if any; X = X co-ord of left side of gorge. 

100—150 Print converging walls to straight gorge, so that the 
alien cannot escape to left or right of gorge. 

200 Beginning of main loop. Print left side of gorge, space 
length A$ (initially 10 squares, gradually decreases) then 
right-hand side of gorge. 

210 Change X by 1 or not at all. This makes the gorge zig-zag 
from side to side randomly. 

220 Print alien. Note that his arms stretch up when you move. 

230-270 PEEK at contents of squares directly under alien and 

- if a bomb, wall or depth charge is there (i.e., not all spaces 
or newline characters) then goto end of program. 

300 Change X co-ord of alien according to key pressed. Note 
that putting this line here gives the delayed reaction to 
commands. : 

310 Increase goes survived. 

320 Occasionally decrease A$, i.e., make the gorge narrower. 
Note that the minimum size may still let the alien through. 
Alter this as desired. If LEN A$ is larger, then it is easier. 

330 Occasionally print depth charge on bottom line. As the 
frequency depends on LEN A$, more depth charges appear 
as the gorge gets narrower. Change this line to make depth 
charges more or less frequent as desired. | 

400—430 If there is a bomb trail, increase RS randomly and 

print a new bomb. Start a new bomb trail if RND <.1. 
(Change this to make bombs more or less frequent, or 
perhaps dependent on LEN A$.) 
If bombs too far right, stop bomb trail. If bomb trail started, 
print current bomb. Note that as bombs may be shown to the 
left of the gorge, some advance warning is given. If you do 
not wish bombs outside the gorge, change line 430 to 


430 IF RS>LEN A$ THEN etc. 
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500 Scroll up screen to give idea that alien is moving down- 
wards. 


600 If 6 key pressed, blow up anything directly beneath feet ` 


of alien. Note that this does not protect the whole underside 
of the alien, just the middle squares. 


610 Redo main loop. 


1000—1210 Alien destroyed, made to flash on and off, score and 
highscore printed. Screen cleared and new game offered. 


Listing 
i REM ALIEN DESCENDER 
2 REM аса ЕЕ НИ јаве 
` &.РОВЕАТ ЗРЕЕГ 
10 LET НЕ=а 
га LET ваза 
за LET со 
за LET As=" “ 
EBS LET Rosa 
Ба LET Ха? 
79 RAND 
аза FOR к= TO 7 
„210 PRINT AT F.F; RE TAB 27-Е; 
Too NEXT F 
138 FOR ғ-в TO 21 
„149 PRINT AT F. 7; ЕЕ"; TAB 19а; "8 
E LE! 
159 NEXT Е 


заа PRINT HT 21,X; ИЕ; наз “ШШШ” 
S18 LET X-X«INT (RND&*3)-i1-(X218 
4 

228 PRINT AT 8,8; mm “AT 1,8; 
“WE GAT 2.5.7.9. AT З.В: `. 
230 LET L=PEEK (PEEK 18698+2564 
240 LET L=L+PEEK (1+PEEK 16388: 


са! 
Qua LET | -| +РЕЕК (2+PEEK 156398+ 


256 ХРЕЕК 153983} 
ПХ (ЗЪРЕЕК 1653986 5 


290 LE 
25БУРЕЕК 18399 
ата IF (ра AND L <>23Е THEN GOTO 


зоаа 


РАЗ Ја Fr” R=R+ (INKEY $a" 8) - (INKEY 
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319 LET GOsG0O+1 у 
3290 ТЕ RND<.825 AND LEN n$»5 TH 


#12 то) 
аза IF BNDi1/LEN AS THEN PRINT | 
уў 2Qi,X-RNDSLEN Аш; Du 


420 ТЕ вага THEN LET RS=sRS+RNDs 


439 LET RSsRS-TIRND:. 
сета IF ВЪЗ ЕМ ASX THEN LET На“ 


IF База THEN PRINT AT 21,85 
“ада SCROLL 


n un oio THEN PRINT ет 
Bx == RAY 3,743; “шш AT 3,7 


e вото эпа 


т 
засо FOR Егз TO із 
i818 АСАД AT ан,“ жыз “GAT 1.8; 
= Í B; x Ч 
1920" PRINT ar” e n" "gir мне” 
BT 8.8: 
лозе NEXT Е 


дете PRINT AT 20,8; “YOUR SCORE I 


Това“ Те GO»HI THEN LET HIscO 
тата PRINT AT 21.2; "HISCORE = 7: 


лова FOR Fed TO 20a 
дазва NEXT 
1119 XY ANOTHER GAME? ¿(Y AN" 
139 e 

1159 IF INKEYS="Y" THEN GOTO 28 
ааза ТЕ INKEYZE-"N" THEN STOP 
1210 GOTO 112 i 


294 
+1; 
5 


ALIEN DESCENDER 185 


Alien Descender Adaptation for Spectrum 
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This program needs a lot of re-programming for the Spectrum, 
as in addition to adding colour and some sound, the object 
detection section, which checks if you have lost, must be 
changed. Also, some more interesting shapes for the bombs and 
depth charges will be user-defined. 


Аһ e 


Bomb 


Notes on altered listing for Spectrum 

10 Hiis highscore, the picture will be sea blue (cyan). 

20 Set up user-defined characters for bomb, depth charge and 
sides of cavern. 

110, 140 and 200 The sides of the cavern are dark blue, and 

have a choice of graphics. 
Note that the spaces between the walls have a black ink 
colour even though no ink colour may be seen, as ATTR is 
used in the program. The rest of the screen, outside the 
walls, is made dark, which is impracticable on the ZX81 due 
to its slower speed of operation. . 

240-260 We cannot PEEK on screen easily on the Spectrum 
and SCREENS will not recognize the existence of user- 
defined characters, so ATTR is used to check if you have hit 
anything. It considers anything which does not have black 
ink as a crash. Note that if you wish to change the colours, 
brightness, etc., you must change line 260 to 4 times the 
ATTR value of a blank square. 

330 Depth charge. 

430 Bomb. 

500 Spectrum equivalent of SCROLL. 

610 Short ‘movement’ sound. 

620—650 Firing sequence. ‘Laser’ sound — note same length as 
*movement' sound so that the game will not slow down each 
time you fire. 

1000-1020 Score and highscore shown prominently. 
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1040—1050 Exploding alien and random sound. 
1200-1260 Data. 1200 = bomb. 1210-1220 = depth charge. 
1230—1270 = sides of cavern. 


Listing 


REM Alien Descender 
REM © 5.Боһег% Speel 3282 


his@: BORDER S: PAPER Б 


ОР g=8 TO 7: 
Ж (143+f) +3 
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Ü 
2 
II 
ы 
4 
a 
“1 
ч 


2 
о 
m 
го 1) 
я 
m 
E 
й 
TJ 
c 
59 
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ж 
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== cR cc LET $= +4 % 
ЕМА 


FOR гад TO F 


Goo 
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Ж 
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< абе kapaka Ti pakat 


Н 

EXT 

OR Te TO 2+ а 

RINT INK 1; AT ғ,8;9%% TO 7 
(147+ ТНТ TRNDSE 3; EINK а; 

; INK MIS (14494INT САМО 

oS 12) 


ж 
CA DUC e Юя Ф Оз би 


Ө- біб 


NR 1;Ht гі AL СНЕ 
NDx211; INK a5; IN 
xr (COCOS DEERTT T 


a 
ата, TO 4551 TO INT 
LEN ха» 13 THEN LET 


te LEN «$41 THEN LET xax + 


cmm PRINT FT D. a; seme “; AF 1,8: 
“CELE: AT соат «ай, " 

240 LET ісе 

258 FOR Ега TO 3: LET t=l+ATTR 
13, а+ ўі): NEXT f 

ава IF [32688 THEN са то 2882 


4 
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ше Ер 3 =a +i INKEY фа 8") - L ІМКЕУ 
516 LET go=90+1 

зга IF RFID < ага AND LEN аз» Е TH 
EN LET а=афї2 TO ) 

ue те RND<1sLEN ав THEN PRINT 
INK ат SL,LEN X$-«-RND + ЕМ ах; СН 
Re 1455 CHRE 146 


5898 IF rs >ë TREN LET raara RND 


“420 LET rszrs(RND(G. 1) 
„488 IF съ СЕМ афчСЕН xs THEM се 
H rs= 
438 IF rs>Ə THEN PRINT INK 2; FIT 
Di,rs;CHRS 144 


eee oes PRINT AT 21,0: PĒKE 236592,2 


2886 IF INKEY$-'5" THEN GO TO ба 


Бай ВЕЕР .Q4,0: CO TO 200 
62@ PRINT AT З.а+1; "==“;ЯТ В,в+ 


EN | 
832 BEEP О BEEP .02,22: 


във PRINT AT @,a¢a;" е. 
55а cO TO 228 


јава PRINT PRPER G; AT 20,0;"'vour 
score is "аа 

дадоа IF go >hi ДА LET hi =@Q 
ага СЕЛА PLASH зет G.a; mam “` 
¿r y 1, RT 3 3 dui М 
1930 PRINT PAPER в; Вт” 2i,1," Һі- 
саго = “jhi 

igo FOR Ғ-з TD 199 ВЕЕР e E 

Баб -БЧо x50. NEXT 

iosuo PRINT as а; DATO a. а: ei 
ат l.a:! 2. a 
18520 FOR Fei тё Ре а: “NEXT + 


PRINT "another game? fu 
ЧЕЛ "ш" THEM 20 Ya" За 
ТЕ INKEY Фол" THEN став 


fos gen kaka‏ شا 
Fe COB ee Gl‏ 
баба ќи биб‏ 
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DATA 24,24, 50, 126,219, 153,2 


DATA @,F7,35,31,127,15,3,8 
1220 DATA 8,224, 248, 248, 254, 248, 
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оол ~~ ALIEN DESCENDER | es 

1238. рата вав, 262,255, 254, ‚248,25 
| | 224,192, 240, ess, ‚254, 2. 

8,255,254 

зака DATA 1,15,7,3, 15, 31.7 

i268 DATA T aC. p 143: Зз 55: 2. "Ва, эз 
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Listing occupies 2.2K 
Program runs in 3.3K 


То use 

You have a small spaceship which has blundered into the 
asteroid belt. Most of the ship’s functions have been disabled 
by a collision with a small meteor, leaving you with only the 
commands left and right. How long can you dodge the asteroids 
hurtling up at you before you are hit? 

You control your spaceship’s movement with the 5 and 8 
keys. In the ZX81 version the asteroids appear one at a time 
when you start, but as you go deeper into the belt, they come 
in twos and threes or even four at a time. 

A highscore feature is included, giving the top three scores 
so far. 


= : Е 8 = E. 
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Notes on listing 

10 Goto instructions and variables. 

20-190 Different asteroids. Note that often asteroids link up 
to form small planetoids. 

500—530 Choose asteroid to PRINT AT bottom of screen. 
Line 500 allows for increase after 50, 100 and 150 goes up 
to four asteroids per go. 

600-630 Increment go counter, move spaceship according to 
INKEY$, SCROLL the asteroids up the screen, and PRINT 
spaceship. 

700—740 Check if ship has crashed by considering three print- 
co-ordinates under ship. IF OK, goto 500. 

2000-2030 Youcrash. Explosion shown. 

2100-2260 Your score and highscore announced and up- 
dated. New game offered. 

5000-5050 Variables reset at start of each game, screen cleared 
and spaceship drawn for new game. 

7000-7090 Short rules. These can be expanded if you wish. 

7100—7160 Start first game. H1, H2, and H3 set to 0 — these 
are the three best scores so far. Clear screen and goto 5000. 


Listing 
НЕМ ASTEHOID BELT 


í R 
= REN COPYRIGHT 188382 
S.ROBERT SPEEL 


ie GOTO гава 


29 PRINT AT 21.A:"*" 
зе RETURN 
ав PRI Eq Hm 
Ба RETURN 
ва PRINT AF 23.8: “в. 
Та RETURN 
ва PRINT AT шї,й; a" 
за RETURN 
заза PRINT AT 21,8; “Е 
зза RETURN 
а” PRINT HT 28,1) “ER: AF 23,8; “7 
ізе RETURN 
wee PRINT AT ван: ай“; вт 21,8: 
ics RETURN 
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158 PRINT AT 29,8: “ER; ВТ 21,A; 


іта RETURN 
488 PRINT AT 329,933; "2; AY рва, 
СБА 7 ат = "uem zi 


398 RETURN 


е FOR Е-1 TO 27160356) + (GO>1iG 


= 
ета Бк 158923 
etie = A=INT (RND жий: 
Sio созив ге+ МТ смо) зге 
за IF RHNDi.8 THEN NEXT Е 


518 LET Х-х+ (ТМКЕУ ey 
фен) + (Х<4)—(Х>ва» >= аа 
я 

BG + AT 9,X-1;" Marske gh 
X; «Врат LIX" x SAT зак; 
FRG LET В-РЕЕК (PEEK i852388425860x 
PEEK (1639933 

PIG LET R=PEEK (21 +РЕЕК з68328+25 
SePEEK {15299} ст 

720 LET S=PEEK казРЕЕК 15338 +25 


заза LET баг се 
{ 


аў др 
ld 48 
ШИҢДЕ 
КАР) 
t" 
м 
rj 
аа 
ара 
fe КА 
NM a II 


#2288 PRINT AT 5,5; "Yu ые аа 
= 


Ат pees Satie: соскы тс 
різле IF вољне THEN LEF наена 
вага IF БОНА THEN LET НЕЕ 
раза IF GO >Hi THEN LET „Назве 
S34@ IF восна AND GO x= HEN LET 
==== 
2150 ТЕ шәсне AND GOHI THEN LET 
H3=GG 
пре PRINT AF 3.5 в; HIGHEST! SCORE 
SO FAR = “Н г 3 
шезе пр T 9,5; “SECOND HIGHES 
= іне к 


ASTEROID BELT . i89 
пана, RAST AT 18,5; THIRD HIGHES 
газа PRINT AT 12,3; “ANOTHER сот 
2246 IF INKEYS$="Y" THEN GOTO ses 


ы 
газе ТЕ INKEYS="N" THEN ITOP 
#208 GOTO 22482 


5940 PRINT AT 1а,х;“ <Ë IRT 31.5. 
База GoTo see 


това PRINT " ASTEROID BEL ELT" 
27810 PRIF 
теге PRINT " IN THIS GAME YOU на 


VE то HUOID" 
E ue PRINT "ЕНЕ ASTERGISS COMING 


теза PRINT "BY MOUING YOUR SPACE 
SHIP WITH " 

таа PRINT "THE ""S"" AND неа“ 
тава PRINT “YOUR SHIP LOOKS LIKE 
тәте PRINT AT 8,10; "Во"; То 3,21 
788 PRINT “то HOUE, HOLD DOUN T 
HE 5 GR в“ 

тазе PRINT “KEY CONTINUOUSLY." 
тава PRINT " PRESS NEWLINE TO ST 
улла INPUT AS 

z с: 5 

7130 LET на-а 

Fid@ LET H2-0 


таза LET на-е 
тава GOTO Бозе 
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Asteroid Belt Conversion for Spectrum 


Due to the difference in PLOTting on the Spectrum, the ZX81 
listing has been extensively remodelled to make use of the 
Spectrum’s features. 

There are several differences noticeable while playing. The 
asteroids are lightly coloured on a black background, and 
initially only small ones appear. After a while, larger ‘moonlets’ 
appear, and then the asteroids appear in larger numbers. If you 
still survive, darker, easily missed asteroids appear, and 
flashing ones help distract you from the less conspicuous rocks. 

You move left and right using the 5 and 8 keys, and the top 
three scores (and your score) are given at the end of the game 
when you crash. 


> => 
= 
Gum = 
Е 
& 
= 
= 
a ihe 
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=== Sum 
= + 
= 
= 
= 
Notes on listing 


10 Goto rules, variables, etc. 

20-40 Three different sizes of asteroids, PRINTed with user- 
defined graphics. 

500 PRINT 1 or 2 asteroids, depending on how long you have 
survived, and a random factor. | 
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600-610 Increment go counter, move spaceship according to 
key pressed. Check if you hit asteroid. 

620 SCROLL. 

630-640 PRINT flashing spaceship and repeat main loop. 

2000-2010 Your spaceship explodes. ‘Blowing up’ effect done 
with user-defined ‘explosion’ graphic being PRINTed on 
spaceship in darker and darker colours until it disappears. 

2100—2240 Your score and top three scores updated and given. 
Another game offered. Note that if refused (line 2230), INK, 
PAPER and BORDER colours changed to normal, so you 
can see listing. If game accepted (line 2220) you do not see 
rules again, and highscore variables not reset. 

5000-5010 Reset go counter, and position spaceship for new 
game. 

6000 Set up user-defined spaceship, explosion and asteroids. 

7000-7030 Rules. Only shown at beginning of first game. You 
can add a ‘see rules’ option at the beginning of a new gamie, 
but you will have to move line 7050 (except the last state- 
ment) to somewhere else, e.g., 6500. 

7040 Sets the screen toa black outer-space view. 

7050 hl, h2 and h3 are the highscores and not reset after each 
game. 

9000—9050 Data for user-defined graphics used to make space- 
ship, asteroids and explosion. 


Listing 


steroid Beit ана 
5 ВЕЦ ° S.Robert Брее 1982 


за GO то сама 


га PRINT FLASH figo izm? AND R 
MHD«.51; BRIGHT i ет 21,2; СНЕ 14 
в: RETURN 

за PRINT BRIGHT 1: ет =23,.а НЕ 

2 RE TURS 


ав PRINT INK 4; BRIGHT i:RF ге 
2 в СНЕФ ісі; INK е; CHAS 153; ат = 
шае ; Сена 152; тық 4;CHRS 354: HE 
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тад INK 4-(RND<.5 AND 9634083 +3 
: QUER 4: FOR Fei TO 2+tgar3 8a; : 
СЕТ a-INI (RNDs3@)}: GO SUB 2241 
ONT (URNDs (2 + (да>ба уз 108: ТЕ RND < 
#68 THEN NEXT f 


2 


ода OVER @: LET зо=30+1: LET x= 
Ха UINKEY $="S") -(CINKEYS="5S")4ix<2 
)-(x»28)1: ВЕЕР .095,90: ВЕЕР - 204 


248 

взе IF атты i12, дози он HITH і 
1а,хаз) за QR RTTR зе „хзегъда T 
HEN ве та геве 

628 POKE 23592,255: PRINT AF 21 


га” 

"638 PRINT АТ Э.х: = =; INK 
AT 16.x-1;" “; FinsH зген" 224 
; FLASH Өр“ “; FLASH 


T 11, х; CHRS 145; БЕРЕН кита 14 
в; FLASH 1; CHRE i4 
ваза GO TO See 


сори FOR f=7 TO @ STEP -1: ВЕЕР 


2815 INK Е: PRINT НЕ 11, Ка: CHR 
155: ВЕЕР .01,-—28: FOR 9-1 TO З 
: PRINT AT S29,.N;CHRS 155; CHR i 


SS; CHR 155; CHR 155: NEXT 9: NE 


аав INK F: РАРЕЯ =: PRINT HT е, 
“You Crasshed"'"vour score is * 


аа 

2318 ТЕ gooh2 THEN LET паге 

Siso IF goohl THEN LET h2-hi: LE 

`3 == 0 

1355 TF до<Һ3і AND дозна THEN LET 
h2-90 

21248 IF go<hS AND зосва THEN LET 
h3-ao 

2гев PRINT БТ 8,5; "Highest scare 
so far = “;hi; TRB 5; “end Highes 
+ = “JAE; TRB 5;'"ага Highest жк“; 
h3 l 

Ре AY 312,3; "Another әс? 
ZEE 

әзге IF INKEYS="y" THEN са та 5а 
ы? 

агза IF чу сы рН “ре THEN PAPER 7: 
_BORDER 7: INK а. STOP 

2248 со та Вега 
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a 
=> Б % 

2 - i 
а dip Ф. 

-. 

е = 
E m 
== 


ж» 


саћа RANDOMIZE : LET к- 15: LET а 

си: PAPER а: OLS 

зета PRINT AT за ху4; CHARS 144; ДВТ 
11, Хх; СНЕЗ 246, HRS 345; СЕВ із? 
вага са то Бай 


бега FOR се TO 44: FOR азё та т 
ERD а: POKE USR СНА 11444) + 
е NEXT 9: NEXT f 


еше PRINT CU Rstereid Bel “= 
this Game uou have to avoid t 
asteroids Camping tevards you" 
18 PRINT “by moving your расе 
ші th the “5” & 79% кечъ.“ 
Be Lr тенге Spaceship looks 

his '; BT 18,1315; CHR 144; 
„сива 145; CARS 245; CHR 


PRINT “То move hold down t 
or а Кеч continuously. ^ Pr 


ENTER to start" 
S oio INPUT аз PRPER а: BORDER 8 
g NE 2 


©. 
t 


МИ sS LZ po s 
ВА ee TEASE 


QN өш 
US ниво 
Е 


sage DETAR 2,4: 
‚255,255.68, 


И 
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везе DATA з зза (43S, з 5 3, 
192,248, 206, 207, 254,248, 2S 12 


а рата 24,62,93,127, 218,188, 2 


с 2.0.14, 123,228,183. 189,238, 121,3 


4,156,418, 238,45,255, ВЕСА ЕДА 


$826 DATA eu .di,cc.iB85, 212 = چا ي‎ = 
purae cS ЗЕ TS о Е 

1 Ñ S /Sb4 Bi 564 115, 
185. iius 853.61, 1365,124,244,116,2 


18, 
5858 бата 165, 136, 405, 17, 42., 138,16 
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Listing occupies 1.8K 
Program runs in 2.8K 


To play 

It is degrading for a computer merely to draw mazes for us to 
solve like experimental animals. In this game you draw a maze 
and the computer solves it. 

On RUNning the program you are presented with a grey 
block, filling most of the screen. There is a blinking ‘1’ in the 
top centre and this is your cursor. You move using keys 5, 6, 
7 and 8. As you draw the maze a trail of 1s appears. You exit 
the maze anywhere along the bottom line and just hold the 6 
key down until the computer’s ‘finger’ appears. The 
computer's ‘finger’ is an inverse flashing + sign. The computer 
solves the maze by attempting to go downwards. If it can’t, it 
tries first left then right and then upwards. Each time it passes 
over a number it increases it by one. It always tries to go on to 
the lowest number, and this bias precedes all others. This is not 
the fastest way of solving a maze but it is certainly one of the 
most interesting and difficult to predict. ў 

When your computer finishes the maze it gives your score 
according to how long it took to solve your maze, as well as the 
current highscore. 

You must create your maze within about 150 goes and your 
number of goes taken is shown to the nearest ten below, in the 
bottom left of the screen. You may remove this restriction and 
go for an ultimate highscore. 
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Notes on hsting 

30 Goto start of game and variables. 

40 D contains contents of squares around computer's finger. 

50—190 Computer PRINTS at each location around its finger 
and then PEEKs at what is in it. These values are stored in 
D(1) to D(4). D(5) contains the contents of the square which 
the finger covers and D(6) the contents of the square two to 
the right of the finger, to counter the computer's left bias. 
It might seem simpler to have all these lines ina FOR-NEXT 
loop, with the PRINT locations in a string array, but this 
works more slowly. 

400 Print number which was under ‘finger’ + 1 over finger. 

410—440 Make sure contents of D are within acceptable limits, 
if any of the surrounding squares contain ‘1’ goto sub-routine 
to move that way. 

450 If next square but one to right contains a 1, and there is 
a way through, goto ‘go right’ sub-routine. This partly 
counterbalances the computer's preference of left to right. 

600—640 Find lowest number surrounding a move in that 
direction. This has been separated from the loop in lines 400— 
440 to speed up movement when there are lots of 1s about. 

1000 Move down. 

1020-1030 General movement sub-routine. Increment 'go 
counter’, check if end of maze reached. If so, goto 2000. 

Redo main loop. 

1100 Move left. 

1200 Moveright. 

1300 Moveup. 

Note that this order gives the computer its downward bias, 
so that it will always seek the exit at the bottom, other things 
being equal. | 

2000—2080 End of game. Print how long the computer took 
and highscore at present. Offers another go, which if 
accepted, re-runs the program, but without resetting RS, the 
highscore. 

9000-9060 Variables. RS = highscore, Y and X are initial 
position of cursor, A = initial number of moves you make 
in drawing the maze. Also maze framework drawn. 
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Listing 


іё REM AMAZE 
20 REN COPYRIGHT i282 
5. ROBERT SPEEL, 
за GOTO зове 
за DIM Di 
58 LET DS) -РЕЕЌ (FEE 
= t қ 163984 
SGsPEERK 16399) за 
TU PRINT aT Уж; Е" 
заа PRINT AT Y+1 ,w; 
al EK 1ES o" (PEEK 16530842 


128 PRINT AT v.x 


-і; 
i3@ LET D (2) -РЕЕК (PEEK 1638 
ББУРЕЕК 1639 ЕЕ 


жел; 
150 LET різ) =РЁ = 
ва 243) еРЕЕК {PEEK 16398+2 


ам 
іт? LET 0442 PEEK (РЕЕК 15989842 
180 PRINT AT ү,ху+р; 
. 188 LET 0(6) =РЕЕК (PEEK 1530822 
SGxDEEK 183020! 


зва PRINT АТ Y,X; СНЕФ {DIES} +21) 
#18 FOR гаі TO ë 

420 IF PIF) <29 OR БІР) >37 THEN 
LEY OF} =37 

аза IF F<S AND D(F!z20 THEN GOT 


+ 
за ТЕ Di5)z290 AND рез» +37 THEN 
GOTO i280 

аа FOR Раза TO 36 

а FOR бел TO 4 

529 IF DiG)zsF THEN GOTO зва+а»: 


a 
аза NEXT с 
Dosen NEXT Е 


за LET Y =w+31 

за LET бб=ббс+ї 

га IF Y 218 THEN GOTO ваза 
за сата се 


ма LET X=x-1 
за GOTO 1818 
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Listing occupies 1.8K 
Program runs in 2.8K 


To play 

It is degrading for a computer merely to draw mazes for us to 
solve like experimental animals. In this game you draw a maze 
and the computer solves it. 

On RUNning the program you are presented with a grey 
block, filling most of the screen. There is a blinking “1? in the 
top centre and this is your cursor. You move using keys 5, 6, 
7 and 8. As you draw the maze a trail of 1s appears. You exit 
the maze anywhere along the bottom line and just hold the 6 
key down until the computer's ‘finger’ appears. The 
computer's ‘finger’ is an inverse flashing + sign. The computer 
solves the maze by attempting to go downwards. If it can't, it 
tries first left then right and then upwards. Each time it passes 
over a number it increases it by one. It always tries to go on to 
the lowest number, and this bias precedes all others. This is not 
the fastest way of solving a maze but it is certainly one of the 
most interesting and difficult to predict. | 

When your computer finishes the maze it gives your score 
according to how long it took to solve your maze, as well as the 
current highscore. 

You must create your maze within about 150 goes and your 
number of goes taken is shown to the nearest ten below, in the 
bottom left of the screen. You may remove this restriction and 
go for an ultimate highscore. 
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Amaze 


Listing occupies 1.8K 
Program runs in 2.8K 


To play 

It is degrading for a computer merely to draw mazes for us to 
solve like experimental animals. In this game you draw a maze 
and the computer solves it. 

On RUNning the program you are presented with a grey 
block, filling most of the screen. There is a blinking ‘1’ in the 
top centre and this is your cursor. You move using keys 5, 6, 
7 and 8. As you draw the maze a trail of 1s appears. You exit 
the maze anywhere along the bottom line and just hold the 6 
key down until the computer's ‘finger’ appears. The 
computer's ‘finger’ is an inverse flashing + sign. The computer 
solves the maze by attempting to go downwards. If it can't, it 
tries first left then right and then upwards. Each time it passes 
over a number it increases it by one. It always tries to go on to 
the lowest number, and this bias precedes all others. This is not 
the fastest way of solving a maze but it is certainly one of the 
most interesting and difficult to predict. ў 

When your computer finishes the maze it gives your score 
according to how long it took to solve your maze, as well as the 
current highscore. 

You must create your maze within about 150 goes and your 
number of goes taken is shown to the nearest ten below, in the 
bottom left of the screen. You may remove this restriction and 
go for an ultimate highscore. 


арла 


DE 


рад 


cheeses 


42 


ЛИЛЕ: 
пепо 


е 


ч 


А maze being drawn. 


ing it. 


The maze is finished and the computer has started solv. 
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1288 LET _Х=х+1 

зала GOTO iaia 

1300 LET Угу-4 

1310 GoTo 1818 

зада PRINT AT У,х; E" 

80160 PRINT HT 19,8; "FINISHED IN 
";G0;" GOES.’ 

22020 IF GO>RS THEN LET RS=GD 
2038 PRINT "BEST 50 FAR = "; RS 
2040 PRINT “ANOTHER GO? TY ¿Ñ © 


2050 ІР INKEYS<="" THEN GOTO 205 
2250 ошл I n THEN атар 
сова вото зала 


зайй LET пази 
заза FOR Ёш 1 "en із 


PRINT AT “ок, +" 
PRINT юп ул a 
LET Z=x +` 
LET ХЕХ ТНКЕУ $= 02") — i INKEY 
"У ХЕ: іх са) 
КЕТ ey si INKEY ва 5") -tInkey 
© ОУ Й 
Dp IF vY»18 THEN GOTO огеа 
ТЕ Г«<>х-у doe ERE Мағаз 
IF mn»isae T зато = 
E A iG zINT ели THEN PRI 


Са WN АКЕ 
ЕЯ рае 


а Z AUS SIDAR аз шо 
:% 5 
= 


piad pt pi ER ра аа‏ لار 


TF 
зато эвев 


Vapours on Venus 


Listing occupies 1.8K 
Program runs in 2.8K 


To play 

You are in command of a spaceship orbiting Venus. A robot 
probe has been sent down to get data. However, a highly 
corrosive black gas is spreading on the surface and if it touches 
the robot, will destroy it. There is also a harmless grey gas, 
which may push back the black vapours. 

By using keys 5, 6, 7 and 8 to move the robot probe, you must 
keep it out of the black gas as long as possible. Sometimes the 
grey gas forms a safe path through the black gas. 

As the probe moves, it leaves a trail of asterisks as beacons, 
and these are what you see on screen. The beacon at which the 
probe is stationed flashes. 

A score of more than 50 seconds is quite good. 
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Notes on listing 

100—340 ‘Gas cloud’ loop. There are 4 clouds, 3 black, 1 grey. 
110-120 X(F) and Y(F) are the PRINT co-ords for each 
cloud. These change partly at random, but tend to follow the 
robot probe. To increase the difficulty, change the (RND 
<.5) parts of lines 110-120 to (RND <.2) or even (RND 
<.1). This will make the clouds converge оп the probe faster 
and more purposefully. Note that clouds cannot go off- 
screen. 
200—210 Print clouds, 3 black, 1 grey. 
220-230 Change robot probe's position according to key 
pressed. Note that the robot cannot go further than the 
clouds in any direction. Note also that you move four times 
as fast as any one cloud. 
300-320 Check to see if probe in black cloud. If it is, goto 
end of game routine. 
330 Increment score in seconds. The real time per go is very 
nearly one second, sixty game seconds are approximately 
sixty-five real seconds. 

340-350 Repeat for all four clouds and then do again. 

1000-1140 End of game routine. 
1000-1020 Destroyed robot. 
1060-1080 Check to see if new highscore, print highscore if 
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suitably large highscore obtained, print congratulations. 
1100-1140 Offers another game; if accepted, resets all 
variables except HI, the current highscore. 

8000-8120 Variables. 
HI = highscore, X(F), Y(F) are PRINT co-ordinates of 
centres of ‘gas currents’. Note that all currents start fom the 
centre of the screen. 

9000-9100 Rules. Expand or omit as desired. 


Listing 
i РЕМ UmPOURS ON VENUS 
2 REM COPYRIGHT 1982 
ROBERT SPEEL 
за 

дама 

118. 
КАА 
(F3 >x 

izo 
3 + CY { 

tPF) ov 

=== 
ivy 

284. RINT HT. Y iF). 
(ЕЁ); 1,X(F); "ИМЕ ; 
aD š 

238 БЕГ“ AT, Y (Еу 2X 
ду. 1.x iF); ШЕ 
228 Wee @t)- CINKEY 
5558 gc пир — £ TNK E w” 
="? 3 


: — 

зав IP PEEK (PEEK 15398+256+РЕЕ 
ра 15389) 5128 THEN GOTO 1800 -. , 
зав PRINT AT мх: в АР ү DOR iS 
358 LET сү 

зайд NEXT Е 

ase GOTO лее 


аза FOR Ғ-і TO 18 
теза PRINT АТ V ,X; "ECG AT Yx; "ж" 
таша NEXT F 

© 
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1040 PRINT “YOU SURVIVED FOR ":5 
SECS. 


Ce LES 
1050 PRINT 


AND CORE "НЕЙ PRI 


таза IF SC=HI 

NT “CONGRATULATIONS. ' 

заза PRINT 

iion PRINT “ANOTHER GAME? iy уа Y 
1118 IF ="" THEN вета 1116€ 
1120 IF_INREY@="N" THEN STOP 
1158 CLS 

дада GOTO ваза 

сага HI= 


PRINT " VAPOURS ON VENUS" 


ә 
= RINT 
S233 PRINT "YOU HAVE SENT A ROBO 
T PROBE TO VENUS. THE PROBE CRN 

BE Suey ишт BY THE SPREAGING BL 


зазв Зе ТЕВЕ FRE ALSO GREY, 
HHRHLES DS DF VAPOUR, АМ 
2 ІЛЕСЕ MAY BUSH ASIDE THE BLACK 
GASES. 
2ES PRINT " HOW LONG сам YOU KE 
EP THE PROBE TRANSMITTING BEFORE 
TRE BLACK CLOUDS DESTROY IT? 
seco PRINT " TO MOVE THE ROBOT, 
Шә Wile СЕНДЕ SaDa 7 RANE 8 ON YOUR 
COMPUTER AT MIS ётам CONTROL. TH 
а ше зе e. E 


те PRINT " (PRESS NEWINE TO АТ 
з iF TNKEY =" THEN GOTO зава 
за GOTO 10е 


Rabbits 


Listing occupies 3.8K 
` Program runs in 4.9K 


To play 

This is a genetics game. You are a rabbit breeder and must 
make as much profit as you can within five years. You start with 
eight rabbits, out of which you keep two and sell the rest. These 
two produce eight offspring for the next year, and again you 
choose two. After five years, your profit is announced, along 
with the current highscore. 

The profit you make on a rabbit depends on its coat colour 
and type of ears. A patchy rabbit with an unsymmetrical 
pattern is suitable only as a pet, and is worth only a few pounds. 
A rabbit with a mono-coloured coat is worth about £10. Most 
rabbits have medium-sized ears, so rabbits with slim ears or 
wide ears are worth a little more than common ones. 

On running the program, you are presented with a shortened 
version of the rules. Press NEWLINE and after a short pause 
the first generation male rabbits will appear. You may select 
one out of the four by pressing key 1, 2, 3 or 4 as appropriate. 
The value of each rabbit is given. You then select a female 
rabbit from the four females which will be shown on the screen 
after you have selected the male. These will breed the next 
generation. | 

Many colours are borne by recessive genes, such as ‘spotted’. 
‘Black’ is a dominant strain, so a rabbit with one ‘black’ and 
one ‘spotted’ colour gene will be black. However, some genes 
are co-dominant, such as ‘black+grey’ and thus a rabbit with 
‘black’ and ‘grey’ colour genes may be black or grey, or striped 
grey and black. 


RABBITS 


ALES, GENERATION 1 
РОЗЕ THE LUCKY RABBIT 


, GENERATION 4 
THE LUCKY RABBIT 
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w 


> GENERATION = 
THE LUCKY RABBIT 


ES 
E 


Occasionally, a rarer colour such as ‘X patterned’ can occur 
and these are worth a lot of money. Often two colours will com- 
bine to provide a blotchy effect which is practically worthless. 

The ears are simpler, and can be wide, medium or narrow, 
narrow being the most dominant. However, a grey rabbit may 
occasionally have large grey ears, and a spotted rabbit may have 
spotted ears, both of which add to the rabbit’s value. Very 
occasionally, a rabbit throwback may have ‘asterisked’ ears, 
but these, as well as other coloured ears, are not usually 
inherited by the offspring. 


Notes on listing 

10 Gosub starting variables and rules. 

20 Z = 1 for males, 2 for females. 

30 СТ = rabbit number. 

40-50 Beginning of loop to draw four rabbits. 

70 Goand find rabbit colour and ear-type. 

80 Print value of rabbit. 

100-120 Draw rabbit, with correct-shaped ears. Note that in 
these lines only black squares (inverse spaces) have been 
replaced with inverse full stops for ease of counting. When 
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you type in these lines, replace inverse full stops with black 

squares (e.g., if nine inverse full stops are shown, type in 

nine inverse spaces). Do not do this with any other lines. 

150 Draw rabbit’s coat in correct colour on rabbit. 

160 PF is the profit so far. 

170-180 Redo for other rabbits. 

200-250 Write title, wait for rabbit to be selected, refusing 
illegal entries. I 

260 Subtract cost of rabbit being kept from profit — you can’t 
sell your rabbit and keep it! 

270 Store rabbit’s genes in L$. 

280—290 Clear screen and repeat for female rabbits. 

300-310 Increment generation counter and finish if more than 
five years. This can be changed as desired. 

500—570 Breed eight offspring with characteristics chosen at 
random from each parent, but making sure always one gene 
from male, one from female parent, not both of a pair from 
just one parent, as rabbits do not form clones. 

580 Do another generation. 

700—790 End of game, showing profit, highscore and offering 
new game. If new game accepted, all variables reset except 
highscore, HI. 

1000 Go and find rabbit’s visible characteristics. 

1010-1040 A$, B$, C$, D$ are rabbit’s coat colours and these 
are swapped around so that if a rabbit is patchy, it won’t 
necessarily have patches in the same places as another patchy 
rabbit. 

1050-1060 Put ‘ear genes’ in X$(1) and X$(2). 

1100-1150 Select ear-size according to ‘ear genes’ and some 

- Шек. 

1500-2550 Select the actual colours of the rabbit, A$ and D$ 
according to colour, genes and random chance (i.e., if colour 
genes are ‘dotted’ and ‘arrowed’ the rabbit will be dotted, ог 
patched in dots and arrows. You cannot tell which in 
advance, but it cannot be grey for instance. 

Note that if A$ and D$ are the same, the rabbit has one 1 

colour (or is striped) but if A$ and D$ are different, the 

rabbit is randomly patched. For grey patches, you may use 
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graphic shift A or graphic shift H, but be consistent. Do not 
change from one to the other: if you use graphic shift A for 
one, you must use it for all the others or the program won’t 
work properly. 

8000-8220 Starting variables. 
HI = highscore, L$ contains genes of selected breeding pair 
of rabbits, K$ contains the possible ‘colour genes’. 
N$ contains possible ‘ear genes’. 
GN = generation number. 
X$ = ear genes of one offspring. 
M$ contains all the genes of all the rabbits in a generation. 
These are selected for the first generation randomly from 
K$-- N$ in lines 8100-8170. 
V = value of rabbits in one generation. 
PF = profit, initially 0. 
The program returns to line 20. 

9000—9110 Rules, omit or expand as desired. 


Listing 
3 REM RABBITS 
за GOSUB зора 


ia FOR X-9 ТО 15 STEP 15 
28 FOR #28 TO 10 STEP із 


58 LET CT=CT +1 
та GOSOB 1000 
BB PRINT AT v.X:UEUIME 


7289 PRIMM кто Y. 
і.х%7 9$; E> ¿ET Yt 
АТ VHS. X; ў 


5 AT Yea EXE BRAT ves. 
MET сау ат V к а 


158 LET ел cT? 
473 NEXT 
158 NEAT X 
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208 IF #=3 THEN PRINT AT 29,0: ` 
Е 3 

210 ТЕ === THEN PRINT AT 20,0;" 
= eS OSS 

заб PRINT “, GENERATIO "РОМ 
„ааа PRINT “CHOOSE THE Cuni RAE 


240 LET PS=INKEY 5 

250 IF P&»"4" DR Р%<71 THEN GO 
TO 249 

260 LET PF=PF-U(2Z,.VUGL Ps; 

ата LET Lgtz) MCZ,URL РФ? 


CLS 
298 NEXT Z 


заа LET GN=GNt+1 
зіа IF GN»S THEN GOTO тве 


saa FOR Fei TO 2 


e 

2 LET МР. аа „На 
TE "ANÊ Lê THEN CET MRIF.G.H 

сіз.» 

8 NEXT H 

@ NEXT G 

© NEXT F 

а GOTO го 


CLS 

PRINT “AFTER 5 WEARS..." 
PRINT 

a “WOU НАЗЕ MADE к“; PF; 


5 а IF FF:HI THEN LET HI- РЕ 
50 PRINT “BEST 50 FARR ? 8 нізе 

Ж Den DN HT ез, ©; “ANOTHER заме 
F¥O IF INHREYSÉE&-"N" THEN STOP 

TOO IF INHEYÉE-"" THEN GOTO 759 
төө GOTO 5010 


L800 50545 2000 
2919 LET БФ=Аф+р 
2520 Е THEN LET S2=02+A 


~ 


1030 LE ho o И 

пай IF Dc. TH LZ әсі $ +B S 
+DS+E SS+D 5 +a E 

2 LET ХЕМ: сс) 

1050 LET ХЭ} МФ СТ „4? 

53022 LET шеу В“ 

е iF DEN IAE " OR NPGS =“ " T 
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1128 om вещ“ AND хжізі =" № 


ка © PU AND ве В” AND Я 
ND t,5 THEN L. $ пр O 
1140 ТЕ Вв-" а" ем фе Ве AND в 
Мр а THEN L. x "W^ 
LISE IF END. OS THEN LET Ове" 


1500 IF AŞ: DE THEM ФОТО 1506 
1516 LET WT=1Ọ 
Це Е IF 8%= OR Аф= "В" THEN LE 


iT = 3 
ДЕ аве“ B“ ов D&-UERS THEN LE 
1549 GOTO 1628 i 


1608 LET LUzi 
it - 


3530 J8=` “ THEN LET UT=UT +2 

1520 IF «Фе "Ме THEN LET UTzuT45 

x те = И“ THEN LET отет ас 
а IF Јао“ THEN LET МТ ШТ +5 


1580 IF “Ш” THEN LET Oreuris 
15690 LET W(Z.CT)-UT Е 


S900 LET ES=MN#(2,.0T, 2} 
2918 LET r s= МЕС, СТ. 2 

2020 LET Я$=Е $ 

2630 IF ES=Fe AND Ed-"Bi" AND ныс 
Б THEN шаў аф=" и" 

сода LET DEAR 

2905 ТЕ ЕО га TREN RETURN 


21928 ДЕ Ез- "В" OR = В" THEN GG 
2110 ДЕ Е Ез= OR Fe="H THEN GO 
2120 IF ESz"E" OR F&-"Ei" THEN са 
$358 LET Ag="8" 

21560 LET 


D$-n$ 
2178 IF _RND<.S THEN LET O8="B" 
азва RETU 


z200 LET яФ= "Ш" 

РЕНЕ 5% Eg="B" OR Fe="B THEN GO 
2228 LET ELLE! 

a230 IF qv THEN LET Рф=" p" 
2240 RETUR 


2258 LET Bš =" B" 
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IF E$z"H'" OR Fea" THEN GO 


2400 
IF Еф= `` n" oR pee ч GR Ega“ 


м4 СА А" T HEN RETUR 
IF fee 4.5 THEN RET TEE S 
RETUR 
БЕТ CH=RND 
IF CH < .S THEN RETURN 


Agani 
ТЕ СН+.5 THEN LET а 
ТЕ CH:.9 THEN LET фа“ 
GOTO 2260 


LET ше 8 
LET D= 
IF ESSA. OR pony THEN RE 


Е#- В" Бас =" AND я 


© IF 
NOt S THEN Ев 


ЈЕ aN SCE RO R Bee = У) FIND R 


HD „5 THEN LET Св 


RETU 


-Fiz an 
E: 
E: 


H3 =K$ INT семрко 
Маа =N$ (INT (RND 


Din vs? 
LET PF=@ 
RETURN 


PRINT “RABBITS” 
PRINT 
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зага PRINT “ YOU ВЕЕ A RABBIT BR 
EEDER WITH 8 YOUNG RABSSITS. ERC 
Н YEAR, YOU МАХ KEEP 2 YOUNG FOR 


DING 
заза PRINT “AND SELL THE REST TD 
Я PET SHOP. THE PRICE OF A RABE 
zr DEPENDS ON ITS COLOUR AND ER 


994.9 PRINT “RABBITS WITH EARS TH 
AT BRE TRIN GR МЕНҮ WIDE COST мо 


RE TH 

9950 PRINT "NORMAL-EARED RABBITS 

a THOSE WITH UNUSUAL COLOURING в 

ВЕ аа WHILE РАТСНУ ONES Я 

= PETIT LEM РЕНЕ ЕН снов 
RABBIT 

TO BREED “THE NEX 

Bard BRI Т GENERATION. 


зава PRINT "rt 
Seri “(PRESS NEWLINE TO $T 


gone IF ІМКЕҰ%5“ > THEN GOTO 902 


Sion 
9118 GOTO зага 


Base to Decimal Converter 


Program runs in ІК 


To use 

This program converts numbers in any base (binary or above) 
_ to decimal. The program first asks for the number you wish to 
be converted to decimal. Next you input the base in which your 
number is expressed. After a short wait (up to ten seconds for 
along number) the decimal equivalent is given. 

Bases larger than base 10 need special digits for decimal 
figures — ten, eleven, etc. — as 10 in (for example) base 15 is 15 
in base 10, 11 is 16 in base 10 and 12 is 17 in base 10. Generally 
the extra digits used in these situations are capital letters. So 
counting in, for example, base 12, you write 1, 2, 3, 4, 5, 6, 
SABI 

The program can accept these letters. So if you wish to know 
what FF (hexadecimal) is in base 10, input FF for your 
number, and 16 for the base. 

Note that the program is accurate to eight significant figures. 


Notes on listing 

10-50 Input number and base and clear screen. 

60 PRINT beginning of answer. 

70 T will be the answer. | 

100-120 Starting from the right of the number, the first digit 
is always units, the second is the number x the base, the third 
is the number х the base squared and so on. So, in base 10, 
the first digit to the right is units, the second tens, the third 
hundreds, etc. 
The program calculates from the first digit, knowing the 
length of your number. 

200 Answer in base 10 correct to 8 significant figures. 
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1 ВЕН BASE TO DECIMAL 
CONVERTER LUE: 
“2 REN COPYRIGHT 1292 

S.LRGRERT SPEEL 


за PRINT "INPUT дот NUMBER 
ке INPUT ва 2 . 

зе PRINT “UHAT вазе кё тт?“ 
== pede | 


ва BRINT AS: т БЕ "BI =“ 
Ба RINT $; | N BASE "B; 


и | 
22775 ХЕј ув" LET тэта 
- СОБЕ As (FF -28) Ва (ЕМ БЕСЕ 

“$58 NEXT ғ bc 


PRINT Wt 


IN BERSE 19" 


Decimal to Base Converter 


Program runs in IK 


To use Р 

This program converts numbers from base 10 to any other base. 
First input your number, then the base you wish to convert to. 
The program will then convert the number, showing its 
calculations. 


DECIHHL NUHBER = 3151 


SASE NUMSER REMAINDER 
3 43352 3 
зата E 
ғ 2596 e 
4 524 2 
چ‎ 158 = 
4 42 = 
4 ig = 
ES = = 


43151 IN BASE 4 rs 22292033 


The program can cope with bases larger than 10, and uses 
letters for the extra digits. 


DECIPHHL МЕНЕЕ = 5531S 


BASE NUMBER REMAINDER 

is 66315 = 

is 4144 ж 

15 25% 3 š 
15 36 e 

ік + i 
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Notes on listing 

100 A$ will be the number. : 

110-140 Input decimal number and desired base. 

210—220 Print decimal number and column headings. 

250-270 Calculated digits by dividing number by base and 
keeping remainder. Print number, base and remainder in 
columns. 

280 Repeat if unfinished. 

300—310 Print answer. 


4 REH DEC ТО ЕЕ CONGERTER . 
. COPYRIGHT 5.R.SPEEL 


гов LET R=. 

1368 PRINT "NUMBERHT'" | 
120 INPUT а 
130 PRINT “BASE то CONVERT то?" 
зае INPUT E 


286 Сі» | 
218 PRINT “DECIMAL HUHBER = “БЕ 


`w PRINT “BRASE”; TRE i8; "NUMBER 
“TRE га; “REMAINDER” 
230 LET C-H 


250 LET Әт-снв%Ф (S8+R-INT IRB? 
EB? +A 
256 PRINT в: TAB за; а: тив га: аве 


278 LET A=INT iF. 
езе IF нуе BUEN бота 258 


зав PRINT 
328 PRINT С)“ IN ВАЗЕ “:в;“ ІЗ 


Quadratic Equation Solver 


Listing occupies 1.4K 
Program runs in 2.5K 


This program solves any quadratic equation with real roots 
using the quadratic formula. 

It also writes out step by step the working out by which the 
answer is achieved. This means that a problem can be typed in, 
and then the answer and working copied directly into a maths 
homework book . . . or for those with scruples, it becomes a 
way of really checking the maths homework. 

The program asks you to input A, B and C for the general 
quadratic 


AX’+BX+C=0 


and starts writing up the solution immediately. 

Since many quadratic equations have no real solution, 
especially those in maths homework questions, if such an 
equation is entered the program will say that it is unsolvable. 
Italso gives an explanation why. 


Мы ED is SUADRAT IC: 
+2 
USING THE QUADRATIC FORMULA, 


ы YEE { 4& +3%86) 
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SINCE 4+-72=-68, 

THIS EQUATION HAS NO REAL ROOTS, 
AS THE SQUARE ROOT OF -653 

ЕЗ IMAGINARY. 


та SOLVE THE QUADRATIC: 
TIiSXX-S5X-15.452z0 
USING THE GUADRAT IC FORMULA, 


y ———— (€ 
R= 25-25 s25—- (4 e—-13276.452) 
SS A aS 


-26 


p —_ дисин 
4—-855.504. 


Х = 528 Rete AL a 
-26 
Xz-254410.49g OR -әв-4і.49 
| -26 -26 
HENCE Х=-@ „4. R 2.534 


m ait THE  SQURDRRT IC: 
+- 
US ING THE “QUADRATIC FORMULA, 


B АС SEE OE 
ЕКт--і-Ж-із-1-ішжез-32 
ж РЫ re ВРИЕ са СВЕ 
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Notes on listing 

100-170 ‘Introduction’ prompts for A,B,C in equation. 

The computer uses AXX instead of AX ж *2 since it looks 
less confusing. This is explained in the program. 

A = X squared coefficient 

B= X coefficient 

C — constant 

180 Clear screen before starting to solve equation. 

190 A$ contains the line we will use to underline things, for 
square root signs and long division signs. 

200—520 Work out answers, writing down each step. All the 
LEN(STR$A+LEN STR$B . . . information looks very 
complicated. Most of it is simply to ensure that the square 
root signs and the long division signs are the right length. 
This length varies according to how well the equation works 
out; one with whole number solutions will need only short 
lines, while an equation with awkward roots such as 3.263 
and 2.964 will need longer lines. l 
Compare the examples given and see how much the lengths 
vary. 

Lines such as 450 round down the number to three decimal 
places. 

If you wish to round off rather than round down change all 
the relevant lines to INT(0.5-- . . .), so that line 450 would 
become: 


450 LET XA = INT(0.5 +1000 ®(—В+)/(2 ж A))/1000 


Note that in lines 350 to 370, we seem to waste a line, since 
350 and 370 could be combined into one line. However, the 
ZX81 would crash if it tried to solve the square root of a 
negative number. Thus 360 checks for this and sends control 
to line 600 if a negative number 15 to be rooted. 
Note that if there is just one solution, the computer will not 
print it twice, but just once. One solution is obtained when 
` the number inside the square root sign is zero. Line 480 
checks for this and alters B$ (the answer) accordingly. 
600—630 If no real roots, say so and explain why. 
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Listing 
4 REM GUADRATIC EQUATION 
= 3 
ВЕН COPYRIGHT зава 


5 REM S.ROBERT SPEE 

100 PRINT "` GUADRATIC EGUAT ION 

128 PRINT "FOR THE QUADRATIC AX 
ЕРЕС > {WHERE хх IS x SOUR 

140 PRINT "INPUT A B.C.’ BITH NE 
WL INE RAFTER ЕЯСН. ` 

1590 INPUT а 

168 INROL Б 

179 INPUT С 


іва CLOS 


ісі LET ас 


200 PRINT "TO SOLVE THE опасват 
біз PRINT " TRS а; NXA“; STR 
ж Б; етте ci 1 
аза PRINT “ USING О HE GUADRATIC 
250 PRINT 
вав LET БЕН ізіне A STRE B+ST 
2598 ER таё S*LEN STRS B: "+ E` 
x зед PRINT Mw 85 g в: EET A— . в: Yu ge P8 е ` 
wae іаў “168; URNS DES > + iB 
70 PRINT TAB 2:88: TO 2+5) 
PRINT TAS LEN Вас TO D443 rÈ 
PRINT 


PRINT ТАБ S+LEN STR В: + 
TC LEN (STR& (BB) +5тра (аз 


“Мак; в: ae 88 c Във: БЫН 
LIII 


S280 PRINT TAB 2; я=: TO 4+LEN 15 
Uae BtSTRS (BB?) +5TR$ DLE ERECODJ) 
33 PRINT TAB S+LEN STRE БЕРНА 
340 PRENT 


3580 LET р=ежв-а»8а 
360 ЧЕ DG THEN GoTo Бос 
278 LET D=INT (1@GO«S0R D)"10090 


Aptos 
ie ЈНА nim 
FE uit Ge 
бб 216 
+ 
De 
> 
z 
4 
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ELL SEINE сев: ORT 


"aie LET E-LEN iSTRS -BeSTRS& Го + 


„438 PRINT TRE 2; г TO £33." 
asc TO Е! 

430 PRINT TRE (а FE} гы; ака; TAB а 

+Е + (E+E? 72; SRR 

440 PRINT 


458 LET XH-INT - 
азу савай (10084 (-B+D) Z iss 


$60 LET XE-I -і-Б- 
n3) 241820 SINT (18@621-6-D) (ек 


ата LET = жаа КАА => `` `. 
этеа ЊЕ шах ATRE xF + GE + 
480 IF рэа THEN LET Büc"Xe" STR 


500 PRINT " HEN 
510 ERENT Ast Ta LER Бат) 


взе PRINT 
аз RINT. “SINCE "БЕБЕ" 


-“j 4 #A# 
ёга PRINT “THIS EGURT 
onL ROOTS. AS THE SOUARE ROOT" 


за PRINT "Is IMAGINARY." 


Notes on conversion for Spectrum 

The program can be typed in directly from the ZX81 listing. 
However, improvements can be made. The thick dividing line 
and square root sign can be replaced with thinner lines using 
DRAW. The program can be reduced by using multi-line state- 
ments. 


Right- salad Triangle 
‘Solver 


Bic) BIGHT ANGLED 
TRIANGLE SOLVER. 


A133 аву 


INPUT SIDE 
INPL 


mis 

“ден SE НАДЯ ЧА IN ñ 
zia REES', 
ATS) 


à 


H° gm 


at 
ы аяз =A (2) A TS) 
S GIN mis 


шек 0409201 


PYTHAGORAS, 

те „РА TS 2-8 t2) + 

SSR 11. $3558-1.2069207) 
LM вваззаа? 

5 NEWLINE ТО SEE ANSUERS) 


m Th or f ja ее t SP ett a | 
шинни нон в ee 


RIGHT-ANGLED TRIANGLE SOLVER 22] 
Aig} 


A (3i ATS 


gos mtm tn HY‏ رس 


ен ни ied 
рр 


Listing occupies 2.8K 
Program runs in 3.8K 


To use 

This program will solve any right-angled triangle. It also gives 
full working out stages, printing out which formulae are used 
for each stage. This program, therefore, can be used to check 
working, or as a quicker way of doing homework. 

On running, the computer draws a right-angled triangle and 
asks for the sides and angles that you know. The usual notation 
of angles A,B,C and sides a,b,c has been avoided as lower-case 
letters are not possible. Instead, the sides are labelled A(1), 
A(2) and A(3) and the angles (not the right angle) A(4) and 
A(5). 

You enter only two of the values at least one of which must 
be a side, since a triangle where only the angles are known is 
unsolvable. Do not enter more than two values, even if you 
have them available. For the other three values enter 0. The 
screen then clears and the triangle is redrawn, with full working 
out underneath, together with the answers. On pressing 
NEWLINE, the triangle is again drawn, together with all the 
correct sides and angles in a short list. 

Note that final answers are given to four significant figures. 
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Bon RIGHT ANGL 


>. 
tet 


#4 

ЈЕ 

3 

(po 

4 
Ваня ў 
салмын 
MOOD [у 


а оао ка 


асовнъ, 

НВО Та) ве 
19 1. 435233 + 1286; 
пара 


аа іа? IRIS 


ZH wn hese 


1 = 
i 
г 
n 
tt 
p 
D] 
“е 


EGREES", 
=ва-а газ 
=66.567909 


- MH N Mra fe aA UN N 


«Эр DCDDD 
"Db es = AE m ЇЙ „= он م‎ (С. 
EE TEE елен 


BRI 


Т 
Mao aou dd 
И 
$ 
а * 
~ 


£I 
SEDE ніі! s84. 27 
SIDE ni2!-36 
SIDE Ars} 291.538 
ANGLE Aid) =23. 132 DEGREES. 
ANGLE а US} =&&. 355 DEGREES, 
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LEC 
TRIANGLE SOLVER. 


а 
й 
с 
X 
с 
5 
D 
ZI 
© 
Б 
m 
яп 
а 
2 
D 


55 NEWLINE TO SEE ай 


RIGHT-ANGLED TRIANGLE SOLVER 


Atay RIGHT ANGLED 
TRIANGLE SOLVER. 


ati} а nU 
(5) 
"TET 
INPUT SIDE азу... 
нет SIDE DiBl...i41 
ҮМБӨТ SIDE вез». ја 
INPUT ANGLE Qul...55.88 
ҮМ РГ ANGLE RIB} ...8 
pU. 
аға» аз) 
а (5) 


mis 
USING "SUM OF ее НИ QiN n 


TRIANGLE=188 DEGRE 
Ais) =за- “Atay, 
AIS! =5а.34 
USING соз AS) sate) #A TS) , 
AIS} віз) СОВ AS} 
Я 3} =153.56633 
USING PYTHAGORAS, 
LESSE #$BSR (32 $32-A 053% x2 
Ati) «898 (25822. 548-—1а8а1) 
8 (1) 2892 == 
{PRE ЗЕЕ ANSWERS) 
Gt 
SID 
ЕЕЗ 
“Анса 66.58 DEGREES. 
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230 RIGHT-ANGLED TRIANGLE SOLVER 


Notes on listing 

Note that the computer works not in degrees, but in radians. 

There are two PI radians in a circle, i.e., one radian is about 

57.3°. This means that any inputted values must be converted 

into radians before the computer works them out. Also, 
whenever an angle is solved or printed, it must first be con- 
verted back into degrees. 

Note that ASN (as in line 810) is written ARCSIN on the key- 
board. Also, in line 600, the double inverted commas character 
is used (referred to as ‘quote image character’ in ZX81 manual 
but often known as ‘double inverts’). Do not put two inverted 
comma characters, it won’t work. 

10 Goto start of program. 

50 Print triangle. 

100 If A(4) AND A(5) means If A(4) and A(5) are logically 

|. true, which is another way of saying IF A(4) < > 0 AND 

A(5) « > 0 but quicker. If only the two angles are known, 

goto 450, as triangle is insoluble. 

110 Ifeitherangle is known, goto 200. 

120—140 Noangles are known. Therefore two sides are known. 
Find third side by Pythagoras’ theorem. IF NOT A(1) means 
IF АП) 0. 

150 If the two angles are now known, then goto ‘Triangle 
solved’ in line 300. 

160 Goto find angle A(4) sub-routine. 

170 Goto find angle A(5) sub-routine. 

180 Goto ‘Triangle solved’ in line 300. 

200—240 One side, опе angle known. 

200 Gosub find second angle routine, line 500. 

220—240 Find second side of triangle and finish triangle in 

lines 120-150. 

300—400 Answers. Clear screen on command, redraw triangle 
and print three sides and two angles underneath. 

Note radian answers for angles are converted to degrees by 

multiplying Бу 180 PI. 

450—460 Triangle insoluble because only angles are given. 

500—560 Find angie A(5) from angle A(4) or vice versa. Logic 
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is used to determine which angle must be found. So if A(5) 
= 0 15 logically true, the angle to be found is A(5). 
540 The angle to be found is 90° minus the known angle. 90° 
is .5 PI radians. 

600-640 Find side A(1) by Pythagoras’ theorem. 

650-690 Find side A(2) by Pythagoras’ theorem. 

700—740 Find side A(3) by Pythagoras’ theorem. 

800—850 Find angle A(4) from sides A(2) and A(3). 

850-890 Find side A(2) from side A(1) and angle A(5). 

900-940 Find side A(3) from angle A(5) and side A(2). 

950—990 Find side A(2) from side A(3) and angle A(4). 

8000-8220 Start of program, gosub draw triangle, request 
inputs of various sides/angles. Convert angles from degrees 
to radians. 

8500-8570 Sub-routine to draw right-angled triangle and label 
sides and angles. 


Listing 
А КЕМ RIGHT ANGLED TRIANGLE 5 


SLUER 
2 REH COPYRIGHT 2982 
A. ROBERT SPEEL 
за GOSUB зала 
Бә GOSUB абал 
103 ТЕ 64) AND ACS) THEN GOTO 


аза 
2348 IF Аі. OR A(S) THEN сата з 
Зее IF NOT 8:1: THEN Gosue sea 
іза IF NOT B(2) THEN GOSUB 252 
1482 IF NOT ACS) THEN GOSUB тай 
„159 ТЕ Aid) AND AS) THEN вото 
158 созыв ааа | 
178 созыв вай 
таа GOTO зад 
гай позив вай 
зав IF A1) THEN GoTo аса 
238 IF ni2) THEN GOTO заа 
248 GoTo ока 
sea PRINT “(PRESS NEWLINE TO SE 
E ANSWERS)” 
3180 IF INKEYS<="" THEN GOTO зле 
зге CLS 
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зза GOSUB ашаа 

S48 FOR Fel TO 3 

350 PRINT "SIDE ВЕРУЈЕ јан INT 
ее 5) 71000 


Ява NEXT 
78 FOR red TQ = 

3680 PRINT " ANGLE At; Fi") ="; IN 
SP BBO (F) 419B7PI». si.isco;" г 
ESREES," 

3599 NEXT Е 

аза STOP 

аза PRINT "THIS TRIANGLE CANNOT 
BE SOLUED," 

450 STOP 

san PRINT " USING "БОН OF _ANGL 
Е5 IN n UE iBHNGLE-is8 DEGREE 
E LET RS=t(A(S) 20) X4 (8 (57 22 # 
свае LET Бра (A (аз =8) nb (8143) за) + 
“өза PRINT “ACT; SR; "I =98-А {"; RS; 
540 LET A(SR) =.S#PI-ACRS 

ка РЕН та аа e EI 
е/гет 

ББА RETURN 


бәй PRINT (АСТЕ PYTHAGORAS , 


(4) SHSHA (3) +#2 -8 гр: 


PRINT “Ap асыр г"; въ "=; 
802) 2723") 
LET Ата) =SeR (а (31 42-A (2) = 


PRINT “ATLI="; ATL 
RETURN 


PRINT " USING PYTHAGORAS, 
воз чао i33 2-71} 


PRINT эігрісшзен (CUIBUGD 322; 
ділі ха; а“ 


"LET AS) =SOR (O303)&42-A CL) = 
PRINT "ага =" Ate) 
RETURN 


FBG PRINT " USING PYTHRGORRS. 


ЯЗ зкрсВііз »++2+98 [=> 
PRINT “CRI вор (е; ACL +»2; 


за 
траса »»2; Па" 
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LET А3) свой iA i3} ааа 12) + 


PRINT "RIS. =” ARID 
RETURN 


PRINT “LISING SIN Bb =A (3 и 


за LET Aid) ASN inia) m2 
INT "аса =; Rte із 
DEGREES” 

аза RETURN 


4880 PRINT "USING TAN ACS) SR (1) г 

858 PRINT "ару за (а стан ACSI” 
За LET ATS} =А 11) УТЯМ ATS) 

368 PRINT таса) 8 Я (2) 

взе GOTO 12 


soo PRINT “USING соз аа =A i2) и 


з 


Ж 


дб 52-10-41 


а 
fu 
9 
т 
2 


“е па 


n 
аб Вы 


уе 
ззівагрРі;” 


aie PRINT "ACB RY =@ t2» соз ASI" 
аза LET Я i3) =R (2) ¿CDS ATS) 
аза PRINT “At 3} =”; А3) 


ава PRINT “Are: 
аза вето i128 


зева DIM 8 
ваја PRINT >; "RIGHT _ ANGLED” 


ға 
‚тав 18," Th TBNGLE SOLUER.' 
Бага PRINT 

ваза GOSUB веза 

ваза PRINT 


звіла FOR F=i ТО 
eiie PRINT РОТ Stee Bit m. 


+ 


Ваза INPUT ATF? 
за PRINT "or EES 
зва BRE ғ 


ша TO 8 
stew БО Т “INPUT ANGLE BUS PUO 
ата INPUT AIP) | 
ува PRINT “sas КЕ) 
1: (ЕЈ Е) хРт ава. 
ва 


218 CLS 
=== RETURN 


ШОН Т ДЕ 
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_ еве PRINT RT 
FOR Fai T 


e. 5; "R tA) " 


a 4. | е 
| 5252 PRINT AT Бар“ ват Ела 


$540 DRINT 


"Tn 


B 4i 


— 
та PRINT AT 4,8; "Ва"; TAE за; 


5560 жазыш. AT 8,6; "ARS * 
^ вата RETU 


кү 


Compound Interest 


Listing occupies 2.3K 
Program runs in 3.3K 


To use 

This program calculates compound interest on any sum of 
money invested at any interest rate for any number of years. On 
running, you are asked to input first the interest rate then the 
times when the interest is calculated, then the initial invest- 
ment. 

The program also allows you to take out a fixed sum, or invest 
a fixed sum each month/year or specified number of months. 

The program asks for how much you want to deposit 
regularly and at what monthly intervals. If you do not want to 
invest any regular further amounts, input zero for both these 
values. You are then given a choice between seeing the monet- 
ary situation after a specified number of years, or seeing how 
the cash builds up over a period of ten years, year by year. 

For example, you wish to invest £1000 in one of two banks: 
Bank 1 offers a compound interest rate of 12.5 per cent with 
interest added on every six months, and Bank 2 offers a com- 
pound interest of 12.8 per cent added on annually. Which bank 
should you choose to invest in to obtain the highest return after 
nine years? 

Run the program and input 12.5, 6, 1000, 0, 0 (0, 0 here 
because no additional money invested or withdrawn), in answer 
to the questions. Then input A. The screen will show the 
following. i 
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ВОТ or БӘР EID 


ENITIAL DEPOSIT =£1000 
АТ 12.5 PERCENT CALCULATED EACH 
в MONTHS. 


YEAR DEPOSIT INTEREST NEW DEPOS. 
1000 128.9 


2 a 
= 1125.9 145.5 e 
E i274.4 164.3 e 
4. 1458. 155.5 © 
= 1624.2 299.4 g 
= 1833.5 236.4 ë 
> 2869.92 2525.5 © 
5 2336.7 301.2 a 
3 2637.9 348 ë 
id 2978 383.9 9 


FURTHER 13 YEARS? {PRESS YN} 


Stop the program and repeat for Bank Z, inputs being 12.8, 12, 
1000, 0, and 0. Input A to get the following output. 


свои ВЕ SSD ЕЕН. 


INITIAL DEPOSIT СЕЗОВО 
T 12.8 PERCENT CALCULATED ERCH 
їз MONTHS. 


di 


YEAR DEPOSIT ЕС NEW DEPOS., 
ES 3006 із © 
= ізге id. B 
3 1е?е.4 162.3 g 
4 2435.2 183.2 @ 
= 1513 зат. е 
= 1826.2 299.8 B 
Я 203539.9 253.7 e 
5 2323. 297.4 e 
a 2621 335.5 © 
за 2956.5 375.4 е 


FURTHER 10 VERRSTIPRESS Y/N} 


This shows that at the beginning of, for example, year five (= 
end of year four) you would have £1624.20 in Bank 1, or 
£1619.00 in Bank 2. At the beginning of the tenth year, you 
would have £2978.00 in Bank 1, or £2956.50 in Bank 2. Clearly, 
if interest rates remain constant, Bank 1 is the better choice. 
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Another example 


You are considering investing in a building society. For an 
initial investment of £1500, and a further £100 invested every 
six months, they offer a guaranteed 10.2 per cent compound 
interest, calculated quarterly. You want to know how much 
you would have after eight years, and of this amount, how 
much would be profit; that is, the total interest earned so far. 

Run the program, inputting 10.2, 3 (3 months — quarterly), 
1500, 100, 6 (£100 every 6 months) and then input B. Then. 
press 8 to prompt ‘how many years . . . ? This gives the follow- 
ing output, showing total in account after eight years and profit 

. if you withdraw at the end of the eighth year. 


GROWTH OF CAPITAL 
8 


а а DEPOSIT z£1590 
ат. зе: PERCENT CALCULATED ERCH 


ÜONTHE. 
DEPOSIT OF £200 EVERY 5 MONTHS. 


AFTER в YEARS... 
TOTAL MONEY INUESTED =E5755.33 


TOTAL PROFIT =S65S5.3264 
(PRESS NEWLINE TO RETURN? 


If you want to withdraw money regularly, simply input a 
negative value to the prompt “INPUT REGULAR DEPOSIT 
. ." Note that if the withdrawal amount is larger than the 
interest, the capital invested decreases and will eventually 
become a debit . . . . This would not be possible in reality. 


Notes on listing 
100—290 Input various variables to prompts. 
A = interest rate 
B — when interest computed (in months) 
C — initial investment 
D — subsequent investments/withdrawals 
E = interval between subsequent investments/withdrawals 
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300—450 Choices of whether to see interest calculated year by 
year, or total after a number of years, or stop program or do 
new problem. 

900-1240 Main loop for calculating compound interest. This 
is done in FAST mode. 

920—980 Print title and details of investment. 
1000-1020 Y = number of years being considered 

DP = total investment at beginning of each year 
TM = total months considered. This is useful when extra 
money is added every fifteen months, or interest calculated 
bi-annually, etc. | 
1030 EC = total of years being considered. Either this is set 
by user (B mode) or set at 10 (A mode). 
1100 Print column titles ifin A mode. 
1110 For F = year 1 to last year (1 to 10 in A mode, or 
subsequently 11-20, 21-30 etc.). 
1120-30 ND = newly deposited money this year 
RS = interest accumulated this year 
1140 Interest is calculated monthly. 
1150 Increment ‘total month counter’. 
1160 If interest should be added this month, calculate 
compound interest and add it. 
1170 If money put in or taken out this month, do it. Note 
that TM/B = INT (ТМ/В) only when interest is due, and 
similarly for E. This allows odd values, such as money 
removed every seven months, still to work. 
1180 Do again for all twelve 12 months. 
1200 Print list of yearly values ifin A Mode. 
1210 Increase DP by interest earned and deposits made that 
year. Note D is unchanged, so other calculations can be made 
later if necessary (i.e., in B mode). 
1220 Repeat for 10 years (A mode) or inputted value (B 
mode). 
1230 Go back to SLOW mode so that answers can be shown. 
1240 Ifin B mode, goto 1500 and print answers. 

1300-1380 Show table of interest, etc., and offer another ten 
years’ viewing. If accepted, return to fast mode and repeat, 
without resetting, ГМ (total months), DP (money invested 
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so far) and Y (years considered). Otherwise goto choice loop 
at 300. 

1400-1420 Select how many years you want done in B mode. 
Do loop in 900. 

1500-1570 Results of B mode, total money invested and total 
profit after EC years. Then return to choice loop. 


Listing 


за REM COMPOUND INTEREST 
же REM COPYRIGHT 12382 

S ROBERT SPEEL 
га CLS 


323 PRINT “COMPOUND INTEREST" 
128 PRTI T 
зза RINT “INPUT THE INTEREST F 
ATE PERCENT, IE 12.5 PERCENT Is 
ENTERED AS 1=.5' 


382 LET Ай 


320 PRINT “INPUT INTERVAL ВЕТЫЕ 
EN INTEREST CALCULATIONS IN MONT 
HS, 50 IF THE INTEREST ІЗ iva Y 
EARLY, INPUT в. 

icc INPUT в 

220 PRINT TAB 18:8 

заа PRINT “INPUT INITIAL DEPOSI 
аи 


$40 INPUT 
ера PRINT Tus та CEE 


аза PRINT “INPUT REGULAR DEPOSI 
T СТЕ NONE THEN INPUT ај" 


е 
258 PRINT TAS за; "е" D 
353 PRINT “INPUT THTERUAL ВЕТЫЕ 
EN „DEPOSITS ЕТЕ NONE INPUT ду“ 
| 523 PRINT TAB іре 
558 IF Беа THEN LET Е=1З 


зра сіз | 
310 PRINT " YOU MAY; - 

322 PRINT 

338 INT "вз SEE GROWTH OF САР 


ITAL QUER A NUMBER OF YER 
заа PRINT "Ву SEE Sorat tan ‘RET 
ER m CERTAIN NUMBER OF YEARS.” 
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380 PRINT "C) DO NEU са си атга 
Ба PRINT “БА STOP PROGRAM.” 
од LET AS=INKEYS 


Шіз IF Ag="R" THEN cora US 
ка IF вее" В" THEN GOTO 1408 


A PRINT “INITIAL DEPOSIT =ë”; 


а PRINT “AT “палав; ч PERCENT 
LOULATED EACH св" MONTHS 


а IF БОЈЕ ТНЕМ, ЕЕ "DEPOSIT 
іа n mg VERY „ЕЈ“ ONTHS.” 
e RINT 


LET “ай 

LET DP-C 

LET TH=¢ 

IF ane "д" THEN LET Є {тш +318 
ТР х" а" THEN PRINT “YEAR 
SIT THTEREST МЕЦ DEPOS.“ 
FOR Раўкі TO 


papapa p ph әл فز سل‎ ka 

ka ka ра кара fee ee Ra a ка 
tfr Teaca fO p» Ca 
9092505 


T a 
xF TH. A= THT как; Е Sen IDEE 

ка + сре INO Кај DB 

ape en =INT eet 2 ЕНЕМ CET 
+ 

NEXT с 


ТЕ рв-"а" THEN PRINT Boe 
{PP 2103.5) „за; TAB 14; + 

29) „ДЕ; TAB БЕ: NE 

LET Бреррамыо-В5 

ШЕТ | 


кі 
ТЕ ва="в“ THEN сата i588 


= 


ра 


изка domui e 


Бара рађа ry 
8-4 
+ 


Фара ба РИЈЕКА 
елу EGO Z ќа 


INT 
PRINT “FURTHER 10 YEARS? (PR 
и 


ns ра 
йл MINA n 


< 
z 
ki 


COMPOUND INTEREST nous Mb 


IF INKEY $ =" MN THEN. GoTo nil — 
IF. INKEYS="Y" THEN сета ism г 


сото ізге 
LET Y =Y +10 


d tata 
tat 
tac 


kuka popa pti pa 
АНТЕ у 


NT TE 
OSRE 
É 
Dr 
mE 


зато заза p 
4085 PRINT "AFTER HON MANY YEARS 


fd 


КЕЛЕ 


WOULD YOU LIKE TO SEE СІММЕЗТМЕ 0 
ilie INPUT ЕС 
аза GOTO заа 
isee PRINT "BFTER "ЕС; YEARS.. 
isis PRINT e 
4820 PRINT “TOTAL MONEY aJNVESTED 
=="; INT i(DPalOB-.5).18 
isse PRINT 
даа PRINT “TOTAL PROFIT -";DP-C 
-БхЕ г 2 +E : МА - 
1550 PRINT " (PRESS NEWLINE то А ` 
ETURNL” Ооа 
S60 IF INKEY£:s"" THEN GOTO 156 0 
SPA GOTO Bee 


pe 


Bar Graph 


Listing occupies 1.0K 
Program runs in 2.1K 


To use 

The program is very simple and self-explanatory. Maximum 
and minimum data are the upper and lower limits of the Y axis 
on the graph that you want to have shown. 

As in all bar graphs, the idea is to show overall trends, rather 
than exact values. This is useful for graphs showing 
temperature, domestic electricity consumption, club accounts 
and other similar data. 

The graph takes monthly values, but these can be changed 
to annual, weekly or other intervals. So, if, say, annual values 

- over 15 years were desired for a club membership record, the 
Ма пие would be made. 


ЕТ Bs 19581561156219831386 
41355155-13571355138515721571137 


аа 
Bin ^e us 
188 PRINT Ки INPUT YEARLY OAT 


гва FOR F=8 TO 14 
428 PRINT ят Заб; "1960. 5.. 78, 


ваа FOR Е=3 TO 15 


Notes on listing 

10-20 DIM string containing names of data. 

30 B will hold data. 

100—150 Input title of graph, and maximum and minimum 
values shown. 

160—260 Input data, and if data too large or small, then re- 
input it. 
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250 Convert data to number equivalent to a certain ‘height’ on 
screen, so maximum value is 15 squares high, minimum is 
0. 

300-330 Print title and underline with line right length. 

340-370 Print X and Y axes. 

400—420 Print Y maximum and minimum values, and initials 
of months. 

500—570 Print each bar separately. Note use of 1⁄2 grey square 
to give higher accuracy. 


ЖЫРЫТ GRAPH TITLE 


MONSOON RAINFALL 
кл o REIS TIRRAEE 


зове | 


е — — Є > Є— 
мјемамјоаљомо 


244 |. BAR GRAPH 


трост есь 1962 


seso | 


газа 


Әғмамомазомь 


2 REM BAR EE 
e DIM B$í458) 
LET 2%= "UBN. FES. MAR. DPR. нау 
пие LL „ВВ. БЕР. OCT a МОЈ. DEC- 
за DIN В (18; 
лее PRINT “INPUT GRAPH TITLE" 


120 PRINT RE UT мах рата" 
440 PRINT ЈА MIN рата” 
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Conversion 


Conversions and the Printer 


When you want to convert, for instance, inches into 
centimetres, a simple program such as: 


IOINPUTINS 
20 PRINT INS, INS x 2.54 


would do this. However, it is much simpler to do this with a 
pocket calculator, or even with pen and paper. So what can the 
ZX81 do with mathematical functions which a calculator can't? 
The answer is — lists. A list of conversions of inches to cen- 
timetres, and vice versa can be very useful. This is where the 
ZX Printer comes in. 

` Using а FOR-NEXT loop, a table of conversions can be 
printed out and then a print out made using COPY. When you 
consider it, all conversion tables are very much the same. They 
all have a column of figures, say for degrees centigrade, with 
a second column, adjacent, giving equivalent values for degrees 
fahrenheit. The values for the first column are usually in a 
definite order, going up in regular steps such as 1, 2,3,4... 
or 20, 40, 60, 80, etc. The degree of accuracy in the conversion 
will vary enormously, but the conversions to eight decimal 
places and those to the nearest hundred, still involve the same 
two columns of figures. This next program is for use with the 
printer. It will print out columns for most conversions in any 
steps, accurate to up to eight decimal places. All you need to 
know is the conversion equation and just what range of values | 
you want to know. 
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To use 
This is best shown by taking an example. 

A student wants temperature conversion tables for “О? level 
science subjects. He needs a very good conversion from ?C to 
°F for typical room temperatures (about 15—25?C), a reasonably 
accurate - to nearest degree — conversion from 0—15?C and 25- 
100°C, and a reasonable idea of °F for 100-5009С. He would 
also like a rough idea of equivalent temperatures from 500— 
2000°C. 

If we divide these requirements into a list: 


Temperature Step between values shown Accuracy of °F 


0-14С each 1°C 1 decimal place 
15-25°С each .5°C 3 decimal places 
26—100°C each 1°C 1 decimal place 
110-500°С each 10°C no decimal places 
550—2000°С еасһ 50°С по decimal places 


When the program is run, it asks for the title, in this example 
it would be CENTIGRADE TO FAHRENHEIT. 

Next it asks for the heading to Initial Value — input CENT., 
and the heading for converted value - FAHR. Next you input 
the conversion factor as an equation. 

To get from centigrade to fahrenheit, the centigrade value is 
multiplied by 9/5, and 32 is then added. You have to put in the 
equation with F as the unconverted value. In this case, you 
would input Еж9/5--32. (Another example, for millimetres to 
inches, the conversion factor is mm Х 25.4, so you would input 
Fx 25.4.) 

When the program asks for how many scales, in the above 
example (CENTIGRADE TO FAHRENHEIT) you would 
put 5. The computer then asks you about each scale, asking for 
starting and ending values, step between values, and decimal 
places required. 

For the 0-14°C scale therefore: starting value = 0, end value 
= 14, мер = 1 and decimal places = 1; and for 15-25°С, 
starting value = 15, end value = 25, step = .5 and decimal 
places = 3. 
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This would be continued for the remaining three scales and 
then the list would be printed on the screen, with an error 
message at the bottom to indicate that there is no more room 
on the screen. 

Press COPY to get a print out, and then CONT. Another 
screenful of conversions will appear. When this has been 
COPYed you will see that it joins up smoothly with the first 
page. 

Repeat this until the whole list has been printed out on paper. 

The reason for the stopping of the program after each page 
(if more than one) and the manual entry of COPY and CONT, 
is so that you can examine each page before printing it out on 
paper. If you find that you actually need different steps or you 
need to make a change, you can start again by pressing RUN. 

However, if you do not want all this stopping and starting, 
then just change all the PRINT statements in lines 20-240 (not 
those after this point) to LPRINT statements. Do not rewrite 
each line, just EDIT each line, move the cursor past the 
PRINT, RUBOUT the PRINT and put LPRINT instead. 
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This will result in the complete list, with title, being printed 
on paper without stopping until the end. Should you require 
several copies of one conversion, do not reRUN after the first 
copy, just press the button on the printer to leave a short space, 
and type GOTO 20. This can be repeated to produce as many 
copies as desired. 


Notes on listing 

10 GOSUB start of program to get data. 

20 Print title. 

30-50 Underline title, making line right КАШ. 

60-90 More title and title to each column of list. 

100 LH = point at which to start PRINTing AT. 

150 For Е = | tonumber of scales. 

160 For F = beginning of scale to end of scale in required step. 

170 Print dotted line for easy reading from value to converted 
value. 

180 Print value, separating line and converted value. 

200—210 Increase line to be PRINTed AT, and start new page 
if bottom of page has been reached — i.e., when program 
stops, pressing CONT continues at top of page. 

220—230 Repeatuntil finished. 

240 Finalline showing end of list. 

8000-8420 Input all factors relating to conversion. 

These lines are fairly self-explanatory. The program will 
accept up to five scales. To have more, if necessary, simply 
add line 8385 CLS. 
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How to Make Your 
Cassette Collection 


After you have used your 7Х81 for a while, you will have a 
number of programs stored on cassette. Some will be bought 
cassettes, others perhaps your own programs or programs 
copied from magazines or books. At some point the collection 
will have to be sorted. 

Some people say that programs should be saved separately 
on C12 cassettes, one program per cassette, recorded three 
times on one side only. This is a costly method and one which 
occupies a lot of space. 

I keep my collection mainly on C60 cassettes. There are 
programs recorded on one side only and a five-second gap is left 
between programs. The cassette recorder has a counter, and the 
count for the beginning and end of each program is noted on 
a card in the cassette case. When I want to load a program, I 
reset the counter, press fast-forward on the tape recorder until 
at the right place on the cassette and start loading. I do not 
record on the second side of the cassette. A C60 cassette is 
preferable, as it takes several minutes to reach the end of a C90 
cassette even on the fast-forward winding. I usually fit about 
6-12 short programs on a C60, or four long programs. 

When starting with a ZX81 the tendency seems to be to save 
programs haphazardly — cassette 1 containing the first twelve 
or so programs, cassette 2 the next group, and so on. A program 
from cassette 1 may be updated, made better and then saved 
on cassette 3, and an even better version on cassette 4. If you 
have problems with LOADing, some programs may be saved 
several times in a row. This kind of system will eventually be 

‘rather cumbersome. It will be difficult to keep track of which 
programs are on particular tapes, how many programs you have 
in all and which are complete. 
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I faced this problem when I had filled six C60 cassettes and 
I then changed my system to the present one, which I have 
found very good and a pleasure to use. 

I have separated my collection into programs which I wrote 
and programs done by other people (this was necessary because 
of sheer volume of programs, and is not really needed for a 
small collection). 

The programs are separated into groups, each group having 
its own C60 cassette. There is one for Moving Graphics games, 
one for Static Graphics games, one for Word gámes, one for 
Educational programs, Practical programs, Utility programs 
such as line re-number, and so on. I specialize in Adventure 
games, so I have two tapes just for these. When one tape over- 
flows, say Word Games, I just start a new cassette labelled 
‘Word Games 2’. 

For the program or programs being worked on at the 
moment, it is necessary to have Current Work cassettes, which 
have to be numbered. Associated with these are sheets of paper 
in a file where notes of variables, ideas and so on are kept. The 
last cassettes needed are ‘Security Tapes’. These are to 
minimize the possibility of a program being lost. If a cassette 
is lent to a friend who never returns it, or you mislay a cassette 
or accidentally wipe it, you do not want to lose a set of programs 
for ever. For this reason, the Security Tapes contain a copy of 
each finished program, not necessarily in any order, but with 
a note listing the programs. Since these tapes are not for every- 
day use, but only as a back-up system, convenience of loading 
can be sacrificed. Thus I use C90s or even C120s, recorded on 
both sides. The list of counts for each program on the cassette 
is on a card in the cassette case as usual. These should be stored 
ina different place from the ‘everyday use’ cassettes. 

For convenience, a couple of special tapes can be made, for 
instance, of ‘20 favourite games’ or ‘programs to take on holi- 
day’. 

Finally, if you have a ZX Printer, it is useful to make a listing 
of each program which you have written yourself. This is not 
only another back-up system against accidental loss of 
programs, but also can be useful when working up such 
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2 programs into a longer or more complex one. These listings can 
be stuck on to a sheet of paper and nh into a file, 8 аѕ 
future references. 


Hardware Problems 


Some of us are lucky enough to have a perfect ZX81, with a 
rock-steady RAMpack, an obedient ZX Printer, and which 
LOADs and SAVEs perfectly every time. However, most of us 
experience some sort of problem at one time or another. 

It is not good for the system to dismantle it every evening to ` 
put into its box. The less you pull the RAMpack and Printer 
on and off the ZX81, the better. But it is not good to leave the 
system out to accumulate dust, either. 

The way I solved this problem is by having the whole system 
on a board. Half-inch strips of plywood are used to make 
‘sockets’ in which the ZX81 and ZX Printer sit, and the 
RAMpack is firmly seated on a wooden pedestal, so it cannot 
wobble. There is enough room to fit on a small cassette 
recorder, and the whole board has sponge non-slip ‘feet’ so that 
it will not scratch the table. The whole board can be moved to 
a storage shelf and has a plastic or wooden cover. If a special 
wooden cover is made with firm sponge pieces, glued in the 
right positions so that the whole box holds everything safely in 
place, the system can be stored on its side. 

There are now large, tough keyboards available which can 
hold the ZX81 and the RAMpack too. This is ideal for those 
who dislike the touch-sensitive keys on the ZX81. However, if 
you are planning to obtain a printer, check to see whether this 
will be accommodated easily. 


The Screen 


Very few lasting problems are due to the TV set exclusively. 
Note that a black and white TV usually gives a better picture 
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than a colour one. Some large screens may lose synchronization 
when presented with moving graphics, while a smaller, 
portable TV, such as a 9-inch screen, always keeps the pictures 
stable. 


The ZX81 


To keep your ZX81 in good condition, always press the keys 
gently, using a stroking movement. 

When a program gives instructions on | which T to use, 
make the instructions read ‘PRESS NEWLINE ТО...’ rather 
than the commonly seen ‘HIT NEWLINE TO...’ 

For those with new ROM ZX80s, problems may occur with 
the keyboard overlay if it is insecurely fitted. Make sure you fit 
it well and use with care. 


The RAMpack 


There are several RAMpacks available apart from the Sinclair 
16K RAMpack. These vary in standard and performance. If 
you have a RAM expansion which does not have some sort of 
plastic casing, as the Sinclair 16K has, make a cover to protect 
your RAM. 

When the RAMpack is attached to the ZX81, it should be 
gently pushed on, not rammed as hard as you can. If it won’t 
work, try wriggling it slightly or pulling it slightly away from 
the ZX81, bringing the contact out by a millimetre or so. 

Make adjustments ONLY while the power lead is pulled out. 

If the RAMpack is not flush with the surface of the ZX81, 
and hangs rather precariously, cut a piece of sponge or 
balsawood as a support to hold it horizontally at the correct 
height. A ZX81 with a properly secure RAMpack should not 
even cause a flicker on the TV screen if the table is knocked. 

Remember, when planning the layout of the board or casing 
to hold the ZX81 and the RAMpack with its support, that if 
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subsequently you get a printer, this will be attached between 
the ZX81 and RAMpack. 


The Printer 


This is attached by a double edge connector between the 
RAMpack and ZX81. The first roll of printing paper has a 
plastic centre tube, but refills have cardboard centre tubes, 
which may be slightly shorter than the original and slightly 
larger in diameter. The original hubs, which hold the roll of 
paper firmly, may fit more loosely into the cardboard tubes of 
the refills. In this case, wedge the hubs in with a little piece of 
cloth tape. 


Problems with LOADing and SAVEing 


This is probably the most frequent problem with the ZX81. 
There are several reasons why LOADing or SAVEing may be 
unsuccessful, and there are ways of coping with most of these 
fairly easily. 

The cassette recorder should receive the program from the 
ZX81 at a constant speed, sufficient volume, and record it 
evenly, then be able to LOAD the program back. A fault in this 
chain will lose the program. 


(1) The cassette recorder may run at an uneven speed caused 
by wear or poor design. The solution to this is to get another 
recorder. 

(2) The recorder head may be out of alignment and, although 
a program can be successfully SAVED and re-LOADed from 
that machine, it will not LOAD on other, correctly aligned 
recorders. This can be cured by having the recorder head re- 
aligned professionally. 

(3) The impedance of the recorder may be non-standard. 
Advice from an electronic shop or knowledgeable person can ` 
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usually solve this problem by adding or by-passing a resistor or 
tapping the loudspeaker connections directly. 
(4) The inherent volume output can be very low, e.g., 
designed only for earphones. This could be overcome by 
adding an additional amplifier available from electronic 
stores. 
(5) The recorder may have additional refinements for musical 
quality, such as Dolby, Limiter, Auto-record, Tone, Tune, 
Tape bias limiter and other settings. Switching off most of 
these, with Tone on High and experimenting, usually finds a 
compatibility with the computer. Otherwise, as previously 
mentioned, by-passing or tapping a connection will give good 
‘results. On hi-fi machines, the MIC and EAR sockets give 
better results with the computer than the line sockets. 
(6) With stereo recorders some models, e.g., Sony 156, work 
better on the left channel. Often wiring a Y parallel lead into 
left and right channels for recording, and a single stereo head- 
phone paralleled lead to the mono socket, will give better re- 
sults. A low-impedance aerial lead often improves matters. 
(7) Usually all leads for LOADing and recording can be left in 
but on some recorders it may be necessary to unplug the lead 
not in use at the time. (Note that the Spectrum must always 
have either LOAD or SAVE leads disconnected at one end.) 
This is usually to avoid an earth loop. Switches for this purpose 
can also be obtained. Full saturation without over-recording is 
the rule. A too low or too high level will lose the program. 
Intermittent mains interference, e.g., from a fridge, electric 
typewriter or heater thermostat, can record a spurious signal 
which may result in loss of program both during LOADing and 
SAVEing and this type of interference is worth checking. The 
recording can sometimes pick up interference from the 
oscillator if the computer is too close to the recorder or the 
connecting wires are crossed or coiled. This is very infrequent, 
butit can happen. 
(8) After prolonged storage the cassette sometimes replays 
unevenly and will not LOAD a program. Fast rewinding a few 
times, back and forth, will probably cure the problem. 
(9) Occasionally, clean your recorder heads with a little spirit 
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on a cotton bud and demagnetize the head, otherwise a build- 
up of background noise can infringe on to the program. 

(10) If you find that you still cannot LOAD correctly, there is 
a special cassette recorder marketed exclusively for the ZX81 
(which is unsuitable for music). Although it is rather expensive 
for the quality of machine, it does give impressive results. 

(11) Ifthe problems persist with LOAD and SAVE, try the fol- 
lowing. Devote a cassette exclusively to the program being 
dealt with. Leave the SAVEing leads plugged in to the 
computer and cassette machine. After every 20 lines, or every 
15 minutes, SAVE the program so far. This way you will build 
up a series of recordings, getting gradually more complete. If 
the computer suddenly blanks then you can LOAD the last 
recording and you will only have lost, at most, 15 minutes’ 
work. If that recording won’t LOAD, try the previous one. 
Even if you have to go back three or four recordings, the 
chances are that you will not have lost all the program. At the | 
end of a session, when you want to pack up, to continue next 
day or let the computer cool off, SAVE the program three 
times. 

You may find that a cassette will mis-SAVE over a particular 
spot on the tape. This could be due to slight damage on the tape 
‚ at that point or a previous signal being imprinted too ‘deeply’ 
for removal by wiping the cassette. In this case, just SAVE after 
the break. 

In general, take more care when SAVEing than when 
LOADing. You can always re-LOAD, but if a program is mis- 
SAVED it could be lost for ever. 


Glossary 


The glossary covers most of the computer terms used in this 
book together with a few others which you may find useful. 
Note that some of the meanings given apply only to this book 
or to Sinclair computers and would not be suitable elsewhere. ` 


Address Units of memory are numbers between 0 and 255 
called bytes, and each byte has an address. To find the value 
of a byte, you PEEK at its address, and to change it, you 
POKE to its address (if it is in RAM). 

Amplification The Spectrum does not produce very loud 
sounds and these can be amplified by plugging in the SAVE 
leads only and pressing Record on the cassette recorder 
without pressing Forward. Adjust the volume control to 
obtain the sound required. 

Argument Тһе numbers or strings which you perform а func- 
tion on constitute the argument of that function: e.g., for 
LEN A$, A$ is the argument, апа for INT(X+ Y/2), X + Y/2 
is the argument of the function. 

Arithmetic expression With Sinclair Basic, commands can 
generally refer to expressions, as well as simple numbers: 
е.р., FOR F = VAL A$(46) TO K+9/PI is possible in 
Sinclair Basic, but not in many others. An arithmetic 
expression is a collection of functions and arguments which 
the computer can reduce to a single number. 

Array Ап array is a set of variables with a dimension. DIM 
A(10,10,10) sets up 1000 variables, all initially zero, A(1,1,1) 
to A(10,10,10). String arrays can be made similarly: e.g., 
А%(10,10). By omitting the last dimension, a whole string 
results, e.g., A$(1) gives a 10-character string.. 
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Attributes On the Spectrum each character square on the 
screen has attributes: an ink colour, a paper colour, and it 
can be extra bright or flashing. The attributes can be 
examined using ATTR. 


Binary Binary is base 2. It uses ones and zeros only and is use- 
ful when defining user-defined graphics on the Spectrum. 
Each number from 0 to 255 can be represented by 8 binary 
digits, e.g., 36is 100100 in binary. 

Block graphics This refers to the graphics made from 
dividing a character square into four quarters and filling one 
or more of these with black or grey (or the INK colour on 
the Spectrum). They are used for low-resolution pictures and 
can be highly effective in patterns, bar graphs and other 
displays. 

BREAK By pressing ihe BREAK key on the ZX81, or CAPS 
SHIFT BREAK on the Spectrum, a program can usually be 
halted. CONT will start the program again, but will clear the 
screen оп а ZX81. 

Bug Hardware or software which does not work properly 
contains bugs. These may be serious, e.g., clearing the 
memory when a key is pressed, or trivial, e.g., printing an 
extra full stop occasionally. A program often takes more time 
to debug than to write in its original form. 

Byte Each unit of memory is called a byte and can contain a 
number between 0 and 255. A kilobyte is 1024 bytes, so 16K 
RAM contains 16384 bytes. 


Character A character is a shape which the computer can 
produce which occupies one space on a 32X22 grid of 
squares. Numbers and letters are characters, and so are signs 
such as commas, full stops, dollar signs and so on. On the 
Spectrum you can make your own characters. 

Character square A character can occupy any position on a 
grid of 32х22 positions on the screen. It must occupy an 
exact position, it cannot be half in one square, half in 
another. Each square on the grid is known as a character 
square. 


GLOSSARY 263 


Command Any keyword which actually changes or does 
something is a command. So GOTO, PRINT and LET are 
commands. SIN, for example, is not a command, as it only 
evaluates a number, but does not do anything with it. 

Condition Use of conditions is the essence of computing. IF 
a condition is met, THEN do something. A condition can be 
true or false, there is no intermediate stage. A true condition 
has a value 1, a false one, 0. So LET A = A+(INKEY$ = 
“8?) will add 1 to A if the 8 key is pressed, but otherwise leave 
Aas it was before. 

Co-ordinate Any position on the screen can be specified by 
two co-ordinates. For characters, the first co-ord is the Y co- 
ord, with zero at the top of the screen, and the second is the 
X co-ord, with zero to the left. For plotted points, the X co- 
ord is first (zero to left) and then the Y co-ord (zero at bottom 
of screen). Print co-ords are the same on ZX81 and 
Spectrum, plot co-ords are different. 

Core program The central routine of a program, where all 
other routines eventually go back to, is the core program. 
The term also refers to the simplest form of a program, to 
which other parts are gradually added. 

CPU Central processing unit. On the ZX81 and Spectrum it 
is the Z80A, one of the best CPUs around. 

Cursor Тһе inverse character which you move along program 
lines when typing them in or editing them. The cursor 
controls, keys 5, 6, 7 and 8, have arrows on them, and are 
used as control keys in many games because of this. 


Data list It is usually convenient to put all the DATA state- 
ments at the end of a program in a data list. On the ZX81 
and the Spectrum much information may be stored in string 
arrays, and this too is a sort of data list. 

Degrees Generally, when dealing with geometry we use 
degrees, where there are 360 degrees in a circle. The 
computer does not use degrees, but radians. There are 2x PI 
radians ina circle. 
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Dimensions When an array is set ир, itis DIMensioned, e.g., 
DIM A(10,10). The number of dimensions here is 2. DIM 
Аб (4,6,9,3) has 4 dimensions. 

Display This refers to the screen and in this book is generally 
confined to the easily accessible part, i.e., the top 22 
character rows. There are two more lines at the bottom, used 
for errors, etc., and these can be POKEd into, but it is rather 
inconvenient. 


Element А single number іп an array or letter in a string array 
is known as an element. 


False Ifacondition is logically false, its value is zero. 

FAST mode On the ZX81 only, FAST mode is available. 
Here the computer works at approximately four times its 
normal speed, but cannot keep the screen going as well. This 
means that during calculations, the screen goes blank. 

Flickering screen When іп FAST mode, а ZX81 has a flicker- 
ing screen. Using PAUSE, even in SLOW mode, also causes 
a slight flicker and I have therefore tried to avoid its use in 
programs. On the Spectrum, there is no flicker due to 
PAUSE. 

Floating point Floating point arithmetic means that the 
computer keeps separate the digits of a number from the 
position of the point, just like a normal calculator. 

Flow chart This is a convenient way of planning a program. 
You write out the main routines of a program in boxes, such 
as ‘move man’, ‘move alien’, ‘see if they meet’ and put arrows 
between them to show what happens when a routine is 
finished. This can often help to guide you when actually 
making the program and checks that there are no loose ends. 


Graphic letter This refers to the Spectrum letters A to U 
which are produced when one letter is typed while the 
machine is in graphics mode. They are used when making 
your own user-defined graphics, and actually change their 
appearance in the listing. For this reason, I have used CHR$ 
followed by the code of the character wherever possible. 
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Graphics This is the general term for all the characters used 
for picture making and includes user-defined graphics as 
well. 

Grey characters Some of the low-res graphics on the ZX81 
contain grey patches — actually a fine chessboard pattern of 
black and white which appears grey. On the Spectrum these 
characters are not available, but you can define your own. 


Hardware The actual computer, the printer and cassette 
machine all come under the heading hardware. 

Hexadecimal Base 16. After 9 in hexadecimal you count A, 
B, C, D, E, F, 10. 10 hex is 16 in base 10. Hexadecimal, or 
hex, is used widely for machine code, as any 8-bit binary 
number can be represented by 2 hex digits. 

High-resolution graphics High-res graphics on the Spectrum 
are concerned with the PLOT, DRAW and CIRCLE 
commands, as these can be used anywhere on the screen. 
User-defined graphics are not true high-res, as these have to 
occupy character squares: a UDG cannot be half in one 
square, half in another. 


INVERSE An inverse character is one where the foreground 
and background colours have been swapped. These are 
available by pressing SHIFT GRAPHICS and a key on the 
ZX81 and by using INVERSE VIDEO on the Spectrum. 


Keywords All the ZX81 and Spectrum commands can be 
found on, above or beneath the keys. You never have to type 
a command in letter by letter, although you may have to press 
three different keys to get a keyword. This may be a little 
awkward at first, especially to those changing frequently 
between ZX81 and Spectrum, but eventually you will find 
it easy and convenient. 

Kilobytes А kilobyte is 1024 bytes and is usually abbreviated 
to K. So a ZX81 with IK RAM contains 1024 bytes of 
memory for programs. However, some of this is used for the 
screen, and more for variables, cutting down on available 
memory. | : 
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Listing You will probably learn more about computer 
programming from examining listings of programs than in 
any other way. It helps if the listing is clearly set out, with 
line numbers in steps of 10, and each section of the program 
starting at the next hundred or thousand. Program 
descriptions should be at the very beginning (if short) or at 
the very end of the program, along with initial variables and 
arrays. This leaves the main program clear and uncluttered 
and relatively easy to follow. 

-Low-resolution graphics This refers to graphics which 
occupy a quarter or more of a character square. On the ZX81 
this includes PLOT and UNPLOT as well as the block 
graphics. On the Spectrum, PLOT uses high-res graphics 
and so the low-res graphics are confined to the character set 
and any which you may define. 


Main loop routine In many programs there is a central routine 
to which the program always returns. This is called the main 
loop routine, as distinguished from sub-routines. 

Mantissa The mantissa part of anumber consists of the actual 
digits and the decimal point or exponent is separate. An 8-bit 
mantissa means that a number is accurate to 8 figures. 

Memory There are two types of memory on the ZX81 and 
Spectrum. ROM (read only memory) stores the Sinclair 
Basic, 8K on the ZX81, 16K on the Spectrum. RAM 
(random access memory) is for your programs and is 1-16К 
on the ZX81 (larger memory available but not from Sinclair), 
and 16-48К on the ZX Spectrum. 

Memory address Each byte in memory has its own address, 
and can be PEEKed at or, if in RAM, POKEd to. Addresses 
in the ROM are from 0 to 16384, and RAM starts directly 
after this. 

Movement vectors When moving an object on screen it is 
often necessary to keep the object’s last position after you 
move it to the next. To do this, we alter the velocities to the 
right and top of the screen rather than changing the co- 
ordinates directly. These velocities are called movement 
vectors and show direction and speed rather than position. 
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Nesting FOR-NEXT loops can be placed one inside another, 
e.g., 
FORF = 1 TO 10: FORG = 1 TO 10: 
NEXT С: NEXT Е. 
Here the G loop is said to be nested inside the F loop. 


Pixel A pixel is a single dot of black (ink colour). When you 
PLOT, you are plotting a pixel. ZX81 pixels are low-res, 
Spectrum pixels are high-res. 

Plot grid We can think of the screen being made up of a grid 
of squares, each square being able to contain one plotted 
pixel. On the ZX81, this grid is 64 squares horizontally, 44 
vertically, and on the Spectrum, it is 256 by 176 squares. 
Remember that with PLOT, the X co-ord comes first, the 
opposite to PRINT AT, and the Y co-ord is zero at the 
bottom of the screen, whereas it is at the top for PRINT AT. 

Priority All operations have a priority, and the operations are 
carried out in order, highest priority first. Functions have a 
high priority, higher than * and /, which are higher than + 
and —. When using operations, if you wish an operation with 
a lower priority to be carried out first, then bracket it. For 
example, PRINT INT RND *4 will always give 0, as INT 
has a higher priority than ж. INT RND is 0, and 0 ж 4 is 
0. To get ВМО +4 to be found first, it must be bracketed, 
giving PRINT INT(RND x4). 

Procrustean Assignment to string arrays is procrustean. This 
means that a string in an array always has the same length. 
In array A$(20,5), A$(1) always has 5 characters. If you type 
LET А%(1) = “RHINOCEROSES”, A$(1) will become 
“RHINO”, as it can only hold 5 characters. If you type let 
А$(1) = “НІ”, А$(1) will contain “НІ”, followed by 3 
spaces. f ; 

Pseudo random RND is not truly random, but follows a 
fixed sequence of 65536 numbers. By using RAND 
(RANDOMIZE on Spectrum) you can get the computer to 
start at a number determined by how long the computer has 
been on, so giving an unpredictable RND function. 
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Radian The ZX computers use radians rather than degrees. 
(See radian measure, p. 270.) 

RAM Random access memory. This is the memory which 
you use for your programs. However, it is also used by the 
computer to store information on the screen, and some 
variables which it needs. This means that when a program 
runs it uses more memory and you do not have all the RAM 
to yourself even without a program. The ZX81 uses about 
0.7K RAM for the screen, leaving little memory on a ІК 
ZX81. A Spectrum uses about 6.7K for the screen (due to 
the colour and high-res) which means that a 16K Spectrum 
has less programming space thana 16K ZX81! 

Real time Games that use real time are the types where, if you 
just sit back and think, something will happen to you. The 
computer has a systems variable FRAMES which actually 
counts fiftieths of a second. Real time games generally use 
INKEY$ іп а loop rather than INPUT. 

ROM Read only memory. The ROM contains the Sinclair 
Basic. The larger the ROM, in general, the more commands 
and functions are available on a computer. 

Rounding off/down INT always rounds a number down, 
removing everything after the decimal point. To round off, 
use IN T(Number-.5). 


Scientific notation For larger numbers, it is convenient to 
give a number less than 10 multiplied by a power of 10. This 
is called scientific notation. 6.35 x 108 is easier to read than 
635000000, and for larger numbers, such as 4.93х 107, 
writing out all the zeros is a waste of time. 

‘Scrolling The ZX81 has a keyword command SCROLL. The 
Spectrum does not, but you can get one by using POKE 
23692,255: PRINT AT 21,0: PRINT. 

Shift The 7Х81 has one shift key (and function), the 
Spectrum has two. These are used to get many of the 
keywords. 

Software This refers to all the programs and attendant 
literature for your computer. This book is software, and so 
are cassettes of programs. 
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Systems variables These are variables used by the computer. 
Their names are mnemonics only and are not recognized by 
the computer. Some, such as FRAMES, can be useful to 
PEEK at for specific purposes. 


True Ifastatement is logically true it has a value 1. 


Undefined variable A variable which is not initially given a 
value is undefined and will cause the program to crash when 
itis used. 

User-defined graphic On the Spectrum, you can design your 
own shapes, letters and symbols on 8 by 8 grids. The ability 
to make user-defined graphics is one of the most чеш 
Spectrum features. 


Variables Variables used to hold scores, screen co-ordinates 
and string variables containing words required in a program 
have to be set (defined) initially, and this is usually done at 
the end of the program listing. This means that early in the 
program there will be a line such as GOTO 8000 to set up 
these variables. 


X co-ordinate This refers to how far along left to right on the 
screen an object is. The X co-ordinate starts at 0 on the left, 
and ends at column 31 on the right for PRINTing, 63 for 
PLOTting on the ZX81, and 255 for PLOTting on the 
Spectrum. 


Y co-ordinate This refers to how far up the screen an object 
is for PLOTting. It runs from 0 at the bottom, to 43 on the 
top for ZX81 plotting, and 175 on the Spectrum. For PRINT 
AT it starts at the top of the screen at 0, and goes down to 
line 21 at the bottom. This is rather confusing. In programs 
I generally use PLOT X,Y but PRINT AT Y, Xx, to act as 
areminder of which axis is which. 
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Radian measure 


When we use trigonometry, in general we use degrees. There 
are 360 degrees ina circle. 

The computer uses radians, and there are 2*PI radians in 
acircle. To convert from degrees to radians, use: 


number of radians = number of degrees * PI/180 
and to convert from radians to degrees, use: 
number of degrees = number of radians ж 180/PI 


so 180 degrees is PI radians, 90 degrees is PI/2 radians and so 
on. Remember that SIN, COS, TAN and their inverses all 
operate on radians, so if in a formula you use SIN 37, on the 
computer use SIN(37 x PI/180). 

If in a program the user inputs degrees, and the final answer 
uses degrees, it is necessary at the beginning to change the 
inputted values to radians, and then convert back at the end. 

On the Spectrum, DRAWing curves uses radians to get the 
angle of curve. So to draw a semicircle, use DRAW х,у, PI and 
to draw a 60-degree arc use DRAW x, y, PI/3. 

Just as for degrees, a small circle is used as a superscript, e.g., 
60°; for radians a superscript c is used, e.g., 1.3° is 1.3 radians 
or approximately 74 degrees. 


Logic 


A logical expression is one using AND, or OR, or NOT, or one 
which uses =, <, ог >. 

If a statement is logically true, it has a value of 1, if logically 
false, a value of 0. This is very useful in programs. For instance, 
that is how a command like LET X = X+(INKEY$ = 
‘8’)—(INKEY$ = 5) +(X<2)—(X>30) works. Each bracket 
contains a logical condition which can be either true or false. 
Say that X = 3. When the program comes to the line above, 
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if key 8 is pressed, (INKEY$ = “87 is logically true, and has 
a value of 1. X is thus increased by 1. If the key is not pressed 
(INKEYS$ = “87 is logically false, and X is unchanged. Note 
the -(INKEY$ = ‘5’) which decreases X by 1 if key 5 is 
pressed. 

This sort of program line is much shorter than 


IFINKEY$ = “8° ТНЕМІЕТХ = Х+1 
IFINKEY$ = “5” THEN LET X = Х- 1 
IF X <2 THEN ...andsoon. 


Condensing a program by using logic will speed it up quite 
appreciably, as the computer takes more time to carry out IF 
statements that simple logical commands. 


IN command 


In the Spectrum manual, there is a short chapter on IN and 
OUT. These commands will be useful for controlling hardware 
attached to the Spectrum. However, IN has one very useful 
software application — we can use it to read the keyboard. ` 
Although INKEYS$ is easier to use, it cannot register 2 keys 
being pressed at the same time. With IN, however, pressing 2 
keys will give a different signal to pressing 1 key. 

The keys are grouped in half-rows, each group containing 5 
keys. When no key is being pressed, IN will give a value of 255 
for that address. Pressing the key nearest the centre of the key- 
board (e.g., key 5 in the top left half-row) will reduce this by 
one, the next key out will reduce it by 2, the next by 4, the next 
by 8, and the outermost will reduce the value by 16. Thus any 
combination of keys can be recognized. This can be very useful 
to add extra features to some games, where you can move and 
fire at the same time or press 2 movement keys to move in a 
direction between the two. Another idea is to produce 2 player 
games, one player versus the other. One player can use the 
bottom left half-row (CAPS SHIFT to V) and the other can use 
the top right half-row (0 to 6). 
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The 8 addresses that IN uses to read the keyboard are given 
at the end of the IN chapter in the Spectrum user’s manual. 


Some useful PEEKs and POKEs 


The systems variables on the ZX81 and Spectrum contain some 
useful values which can be PEEKed at and in some cases 
POKEd to. Here are a few you may find that you need: 
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PEEK(PEEK 16398+256% PEEK 16399). This gives the code 
of the character in the screen position last PRINTed at. If 
you wish to know what character is at a particular position, 
say (Y,X) use PRINT AT Y,X;. 

PRINT CHR$ PEEK(PEEK 16398 +256% PEEK 16399). 
This is very useful to detect collisions in games. 

PRINT PEEK 16404--256:« PEEK 16405 — 16384. This gives 
you an idea of how much RAM is used up by a program. 
BREAKing a program and doing this PEEK will give how 
much memory is used altogether including the screen and 
variables, by the program. 

PEEK 16436+256%PEEK 16437. The ZX81 version of 
FRAMES. You can POKE these addresses to some value 
and use them as а countdown, counting down 50 every 
second. However, as PAUSE uses this, its use may be 
limited. Also, have RAND (if used) before you POKE 
FRAMES, or you may end up with predetermined ‘random’ 
numbers! 

PEEK 16438 and PEEK 16439. These give the X-- Y co-ords 
of last PLOTted point. This can be useful to check if a 
PLOTted object goes through a particular point on the 
screen. 
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POKE 23561,n This gives the time that a key must be held 
down before repeating in fiftieths of a second. Initially 35,. 
this can be POKEd to 255, for virtually no repeat, or other 
convenient values. 

POKE 23562,n Delay in fiftieths of a second between 
successive repeats of a key. This starts at 5, but for editing 
programs, 1 isa more suitable value. 

POKE 23606,m: POKE 23607,n For extra UDGs, and your 
own customized character set, POKE this systems variable ` 
CHARS to somewhere in RAM. This is discussed in 
Extending User-defined Graphics (pp. 48-55). 

POKE 23609,n This variable PIP gives the keyboard click 
length. Increasing its value to about 35 will give a more 
audible beep. 

PEEK 23672, PEEK 23673, PEEK 23674 Spectrum 
FRAMES. Can be POKEd to any value. Runs for nearly four 
days before resetting. You can set up user-defined functions 
to PEEK at FRAMES conveniently. 

POKE 23692,255 Scroll counter. POK Eing this to 255 during 
a program stops the computer asking ‘scroll?’ when there is 
no space on the screen. 


Appendix 


7.Х81 and Spectrum report codes 


Code 
0 Successful completion of program/command. 


1 


2d 


NEXT without FOR. See if you have accidentally started the 
loop with a different name. 

Undefined variable. Check that variable is necessary and not 
mis-typed. If variable needed, make sure the program 
defines the variable in a LET or DIM statement before that 
part of the program. 

Subscript out of range. Check that array is DIMensioned big 
enough, and that the subscript is within the required range 
if itis chosen using a complicated function. 


4 Not enough room in memory. Programs can be reduced by 


shortening or omitting rules, tidying up to remove spare 
GOTO's and changing numeric to string arrays. If short 
program inexplicably uses up 16K, check that arrays have 
not been dimensioned too big. 

No room on screen. PRINTing AT а y value of greater than 
21, or forgetting to use scrolling and CLS can lead to this. 
Adding SCROLL or equivalent Spectrum POKE, or using 
CLS will cure this. 


6 Arithmetic overflow. Number greater than 1028 generated. 


7 


8 


Check program for arithmetical errors. 

RETURN without GOSUB. Check that you have not used 
GOTO to reacha sub-routine, and that the RETURN should 
not bea GOTO. 

ZX81: INPUT as a direct command. Spectrum: End of file. 
Used with microdrive. 


9 STOP statement. Useful to halt program at key points w 
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locate problems. Use CONT (CONTINUE on Spectrum) to 
carry on from next line. 

A Invalid argument. Typically SOR for negative numbers, 
ASN for numbers larger than one and similar. 

B Integer out of range. Check for arithmetical errors in 
GOTOs, GOSUBs, POKEs, etc. 

C Text of a string argument is invalid for VAL (and VAL$ on 
Spectrum). Check that string which is being VALued has no 
excess spaces, letters, etc. 

D BREAK pressed (during SAVE, LOAD, etc. on 
Spectrum). Also (ZX81 only) STOP at beginning of 
INPUTEted data. 

E Spectrum only. Out of data. Check lengths of FOR-NEXT 
loops reading DATA, where you have RESTOREd and that 
you have enough DATA. 

F Invalid file name SAVE using empty string (or on the 
Spectrum one longer than 10 characters). 


Fromnow on Spectrum only: 

G Noroom for line in memory. Wipe out line, CLEAR, reduce 
program and try again. 

H STOP in INPUTted data. 

I FOR without NEXT. Incorrect FOR loop, e.g., FOR F = 
1 TOO without NEXT. Change FOR loop. 

J Invalid input/output device. For Microdrive, etc. 

K Invalid colour. Check INK, PAPER, BRIGHT and similar 
statements, especially if they use expressions to give colours. 

L BREAK pressed during program. 

M RAMTOP no good. You have CLEARed at too large or 
(more likely) too small a number for RAMTOP. CLEAR to 
alarger number. 

N Statement lost. Typically in direct commands when you 
typethem in wrong. 

O Invalid stream. Used with Microdrive, etc. 

P FN without DEF. Make sure your function is called what 
you think itis. DEFine FuNctions before using them. 
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С Parameter error. Check FN statements to- fake sure that 
there are the right number of arguments, and that they. are 
of the right type. 

СК Tape-loading error. Chek cassette for fal. Sid re-SAVE 
program on different cassette making sure that volume and 
other settings on the cassette recorder are correct. 
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will help you develop great games and serious programs for 
your Spectrum or ZX81. There are over 40 programs, each 
explained in detail so you'll understand exactly how the 
programs work and how to apply the techniques to your own 
programs. PEEK and POKE, high-resolution graphics, colour 
and sound — they're all covered. 


The book teaches you better programming techniques and 
will help you get the very best from your computer. 


Outstanding programs include: 

FAIRWAY — play your ZX81 on a graphically illustrated 
18-hole golf course. | 

AMAZE — you build the maze, and the computer solves it! 
Machine intelligence in action. 


HERO MAKER — a major ADVENTURE program in which you 
— а young warrior of noble birth — must prove your valour by 
battling with the elements, dangers and monsters of the 
caverns of power. 


KNIGHT FIGHT — jostle in a medieval joust with mounted 
knights. If you are knocked off your steed, the fight continues 
on foot. 


3-D MAZE — solve the maze of the century, with every 
twist and turn of your path shown in ‘three dimensions’. 
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